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INTRODUZIONE 


Con questo libro e il Vostro ZX Spectrum siete pronti per molte grandi av¬ 
venture. Lo Spectrum, malgrado le sue piccole dimensioni, è un computer di 
grande capacità e i programmi contenuti in questo libro Ve ne daranno prova 
mostrandovi anche la sua eccezionale versatilità. I programmi che Vi saran¬ 
no presentati sono facilmente accessibili a chiunque abbia una discreta co¬ 
noscenza del linguaggio Basic e potrete quindi modificarli secondo le Vostre 
capacità e bisogni. 

Troverete elencati un gran numero di giochi, da «L’oro del drago», classi¬ 
ca avventura di un tempo, a «Tra le stelle», esplorazione del futuro, da «L’e¬ 
vasione» a «Musica», da «Zombies» a «Jackpot», una moderna versione della 
famosa Slot Machine di Las Vegas; e tutti contengono idee che potrete ela¬ 
borare ed usare per crearne dei nuovi. Questo libro però non contiene sola¬ 
mente dei giochi (non penso che vogliate passare tutto il Vostro tempo libero 
a giocare), ma anche programmi di utilità quotidiana; infatti, benché i giochi 
siano divertentissimi e siano una delle componenti che hanno reso popolari i 
computers, non sono in grado di mostrare l’enorme capacità di questi appa¬ 
recchi. 

Per mostrare quanto sia sofisticata la Vostra «macchina», sono dunque 
contenuti in questo libro dei programmi che Vi aiuteranno nei problemi di tut¬ 
ti i giorni: tracciare un grafico, risolvere un’equazione, effettuare le classifi¬ 
cazioni alfabetiche e numeriche, alfabeto Morse e addirittura la gestione del 
Vostro conto corrente. 

A questo punto non Vi resta che sperimentare sul Vostro ZX Spectrum le 
idee e i programmi originali dei seguenti autori: Roger Macintyre, D.C. 0- 
wen, Martin Frobisher, Paul Toland, Stuart Roberts, Tim Rovers, I.S. Ho- 
wson, Andrew Lovering, R. Stubbs, John Knight, Said Hassan, Jeremy Ru- 
ston, Paul Stevens, J. Elliot, M. Charlton, K. Mahogany, Daniel King e Tim 
Hartnell. 

Buona programmazione 


David Harwood 
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TRA LE STELLE 


Vi è stata affidata la sicurezza di un cubo di spazio che misura 10x10x10. 
La Federazione terrestre, non badando a spese per la difesa del Pianeta, Vi 
ha fornito di un’astronave equipaggiata con uno spectrum come computer di 
bordo: ora spetta a Voi salvaguardare i confini dello spazio che Vi è stato af¬ 
fidato. 

Scorrendo il programma vedrete che la Vostra posizione airinterno del 
cubo è data da 3 coordinate che appariranno sotto l'indicazione: «La nave 
sta incrociando le coordinate». 

La prima coordinata è la Vostra posizione NORD-SUD (con i numeri più 
bassi a Nord), la seconda è la Vostra posizione orizzontale EST-OVEST e la 
terza Vi dà la posizione aM’interno del cubo. Noterete che sarà necessaria 
una buona capacità di visualizzazione tridimensionale. 

Gli Alieni (cinque) si muovono lentamente e tutti compatti aH’interno del 
cubo, ma nonostante Voi conosciate in ogni momento la loro direzione, non 
sapete quanto siano lontani; dovrete colpirli prima che il tempo scada e sen¬ 
za entrare in collisione con loro. L’obiettivo sarà a tiro quando il computer Vi 
segnalerà la frase: «ALIEN è di fronte a noi»; soltanto adesso potrete preme¬ 
re (L)aser ed eliminare uno di loro sino alla completa distruzione, ma at¬ 
tenzione: se Vi avvicinerete troppo essi Vi potranno colpire e ad ogni colpo 
la Vostra riserva di energia diminuirà notevolmente. 

Quando comparirà «BASSA ENERGIA» sarete vicini alla fine. 

Il gioco è facile, dovrete solo premere il tasto corrispondente alla posizio¬ 
ne in cui Vi dovrete muovere: «N», «S», «E» od «0» per NORD, SUD, EST ed 
OVEST; «A» per avanzare, «R» per arretrare e «L» per sparare il Vostro laser 
contro gli Alieni. 

Se per esempio gli Alieni si trovano a Nord, Voi potete, semplicemente te¬ 
nendo premuto il tasto «N», spostare la Vostra astronave fino a che Vi trove¬ 
rete sulla giusta traiettoria preparandovi al fuoco. 
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Ri ien e ' 

a SuctEst di dietro s noi 


Energia res. *27 erga 


■La nave sta incrociando le 
coordinate 
2 3 2 

Inserisci il tuo coaando 
N/SjEjO, clj aser , 

(fl)vanza,a (R) retra Tempo. 34. 



IO REM Tra le stelle 

20 REM di Roger Macintyre 

25 BORDER RND*7. PRPER 7: CLS 

30 GO SUB 1070 

40 GO SUB S00 

5® IF t <0 THEN GO TO 50® 

80 PRINT RT 17,0; INK RNDS6;"I 

nserisci i i tuo coi»andò” 

SO PRINT RT 15 ,2; INK RND*6;“N 

^s^E^O,tL)aser..ifl)vanza,a(R3 r 

etra" 

3.00 LET 4 = » 

12® IF INKEY$ = ‘‘ THEN GO TO 120 

125 BEEP .1,RND#20 

130 IF INKEY$=”l” RND a =X AND b 
=y RND c <2 THEN GO SUB 320 

135 IF a =X RND b=y RND C >2 THEN 

GO SUB 705 

140 LET X=X+IINKEY> = "S“) - (INKEY 
$="n"3 

150 LET y=y+(INKEY$=”e”>-(INKEY 

*="o") 

160 LET 2=2-(INKEY$="a”)+(INKEY 

j = "r m ) 

195 PRINT RT 5,0; t $j t$ 

200 GO SUB 620 

210 IF RND>.5 THEN GO TO 40 

240 LET a =3 +INT ( (RND*-3) - tRND*3 
3 3 

250 IF a <1 THEN LET 3=1: IF 3>1 
0 THEN LET a=10 

260 LET b = b + INT ( (RND*3) -(RND*3 
3 J 



265 IF b<l THEN LET b*l: IF b>l 
0 THEN LET b = 10 
270 IF RND > . 5 THEN GO TO 4-0 
280 LET C=C+INT ( (RND*3) - (RND*-3 
) ) 

290 IF C<1 THEN LET C=l: IF C>1 
© THEN LET c=l© 


!.. RND 


310 

GO TO 

40 

320 

REM **Spara il Laser 

330 

LET l = 

l - .75 

34-0 

BEEP . 

1,RND *20 : BEEP 

*20 : 

BEEP . 

1 j RND *20 

4-60 

LET t = 

t -1 

4-82 

PRUSE 

100 

4-83 

PRINT 

RT 1,0;"LRSER" 

484- 

PRUSE 

50 

485 

PRINT 

RT 1,0; t $ 

1,RND*20. BEEP 

488 

BEEP . 

*20 : 

BEEP . 

1,RND *20 

490 

RETURN 


500 

CLS : 

BORDER RND *6: 

TRB 3; INK 

RND*6; FLRSH 1 


1 , RND 


PRINT 
'1TERM 

INE"' 

530 IF tl<=© THEN PRINT INK RND 
*6;"Siai»o rimasti nello spazio" 

" troppo tempo"'.- print rt 12 ,9;" 
SIRMO SCONFITTI" 

560 IF l < =0 THE N PRINT INK RND* 

ita Ri serva 
RT 10,8;“SI 


S; FLR5H l JL _UH*Esaur 
Energ» a ■■■§-'PRINT 
AMO SCONFITTI" 

570 STOP 

580 CLS . PRINT INK RND*6;“Sia«fi 
o entrati in collisione con TRE- 
8;“ gii Riieni" 

590 STOP 

600 CLS : PRINT RT 10,4- ; ” COMPL I 
MENTI HRI DISTRUTTO"': PRINT RT 
11,10j"GLI ALIENI" 

610 STOP 

620 REM * *T ir o degli alieni** 
625 PRUSE 100 

630 IF RBS (a-X.1 >3 OR RBS (b-y) 
>3 OR RBS CC-ZJ >3 THEN RETURN 
650 IF RND>.75 THEN RETURN 
660 BEEP .3,RND*20. PRINT RT 1, 
INK RND*6; FLRSH 1; j%\W GLI 
RLIENI CI SPARANO ,W/ 

670 PRUSE 100 

690 PRINT RT 1,0;t$ 

700 IF RND>.7 THEN GO TO 770 
705 PRUSE 10© 

710 BEEP .3,RND*20: PRINT RT 1, 
0; INK RND*6; FLRSH GLI RLI 

ENI CI HRNNO COLPITO ■" 

720 LET 1=1-7 
730 IF l<=0 THEN GO 
74-0 PAUSE 100 
755 PRINT RT 1,0; t $ 

760 RETURN 
770 BEEP .3.2140*20: 


TO 500 


PRINT RT 1, 
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0; INK RND*6; FLASH li " IIIIIIIlM 
IRA SBAGLIATA llllllll" 

780 PAUSE 100 

792 PRINT RT 1.. 0;t$ 

795 RETURN 

500 REM »»RiSta»P3 Video 
810 BORDER RNB *6 

850 PRINT RT 10,0;"Energia res. 
= “; I.; " ergs 

870 LET tlatl-1: IF tl=© THEN G 
O TO 500 

890 PRINT RT 19,20;"Tempo: ";tl 

» *■ •• 

' 900 IF l<10 THEN PRINT RT 12^4-; 
FLASH 1; "AB BRS5R ENERGIA 
920 PRINT RT 9,24-; FLASH 
erti = “; t 

925 ÌF t=0 THEN GO TO 600 


930 PRINT RT 14 , 0 ;“V-a nave sta 
incrociando le"'"coordinate :“ 
935 PRINT TRB 4... x.; “ “; y; “ z 

T u i» 

' 94.0 IF a =X AND b=y AND C =Z THEN 
GO TO 580 

965 PRINT AT 5,0;“Alien e’ 

• « 


970 IF a OX OR boy THEN PRINT 
** 3 ** * 

980 IF a <x THEN PRINT “Nord”; 
990 IF a >X THEN PRINT “5ud“; 
1000 IF b>y THEN PRINT “Est”; 
1010 IF b <y THEN PRINT "Ovest”; 
1020 IF C=Z THEN PRINT " di noi” 
1030 IF OZ THEN PRINT “ di di et 
ro a noi” 

104.0 IF C <Z THEN PRINT " di fron 
te a noi “ 

1060 RETURN 
1070 REM 

1090 LET l=25+INT tRND*30): LET 
t =0 : LET 11=35 , „ , 

114.0 LET a=INT (RND*10) +1: LET b 
=INT (RND*10>+1 

1150 LET C=INT (RND*10>+1: LET X 
*INT (RND*10)+1 

1160 LET y=INT (RND*1©>+1: LET Z 
= INT (RND*10)+1 
1180 LET t* = ” 

»V •• 

1185 LET t =5 
1210 RETURN 
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FASTERMIND 


Questa versione del gioco «Mastermind» (marchio registrato Invicta) uti¬ 
lizza le lettere A, B, C, D, E ed F, scegliendone quattro. 

Il Votro compito consiste nell’indovinare il codice segreto con il minor nu¬ 
mero possibile di tentativi. 

Per una lettera giusta nella posizione errata, Vi verrà dato un «+» mentre 
per la lettera giusta al posto giusto apparirà sul video un asterisco «*». 

Le combinazioni errate vengono scartate. 


80 rem fastermind 
90 REM di D C Otnen 
95 BORDER RND*7; INK 


RNI>i&: C-L 


100 LET 1=0; DIM B (40 ; DIM bt4-) 

130 POR Z=1 TO 4- 

14-0 LET bCZJ=INT (RND*6> +1 

150 NEXT Z 

160 POKE 23692,-1 

170 PRINT RT SI,Si"F bs terminò 3 
b c d e f " ; RT 21,0; OUER 1;"_ 


185 


28 


180 LET 1=1+1 

185 PRINT ""inserisci le Lette 
re supposte l 
190 INPUT LINE a$ 

195 LET k =0 : LET .J =0 
200 FOR Z=1 TO 4. 

210 LET a (Z) =CODE a$-96 
220 IF a fZJ >8 THEN GO TO 
230 PRINT CHRi (a(Z)+96);" " j 
235 LET bfzJsRBS btz) 

24.® IF <>b(ZJ THEM GO TO 

0 

250 LET X =k +1: LET a(Z)=0: LET 
b (Z) = —b fZ) 

280 LET a$=a$ (2 TO ) 

290 NEXT Z 

300 FOR h =1 TO 4.; FOR Z =1 TO 4- 
310 IF a(h)Ob( 2 ) THEN GO TO 36 

0 

330 LET J =J +1; LET bfZ)=-b(Zi 
350 GO TO 378 
360 NEXT Z 
370 NEXT h 

4-00 PRINT TRB 10; INUERSE 1, "pu 
nteggio"; 
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4-10 IP K =0 THEN GO TO 450 
430 FOR 2=1 TG k 

430 BEEP ,2,RND*20: PRINT FLASH 
l; INK RND*6; FLRSH 0;" 

440 NEXT 2 

450 IF J=0 THEN GO TO 490 
470 BEEP .2,RND*20: PRINT FLASH 
1; INK RND*6; " +•'; FLASH 0;" "Ì 
480 NEXT 2 

490 IF K <4 THEN GO TO 180 
500 PRINT '' PAPER RND*6; INK 9 
; FLASH 1; "! ! ! ! ! ! ! ! ! ! ! ! IFATTO « ! ! 

i i i i i i i il i ; " 






TRAILER 


In questo gioco Vi muoverete sul video con il Vostro Tir cercando di non 
scontrarvi con la scia che lascerete. 

Avrete 3 Tir a disposizione e il Vostro punteggio e le penalità appariranno 
sulla parte alta del video; potrete scegliere la velocità da 0 a 10, dove 0 è il 
massimo e 10 il minimo; controllerete la Vostra direzione usando i tasti 5, 6, 
7 ed 8. 


1 REM trai ter 

2 REM di D Harwood 

4 REM * «definizione caratteri 
--fai andare le linee 5-7 prima 
di battere il resto del program» 
a 

5 FOR t=l TO 7: RERD n 

6 POKE USR " K " + t .« n : NEXT t 

7 DATfi 60.. 126,219,213,255,255 
,102,0 

9' LET p $="A A A" 

10 LET S=0. LET C =3 

11 BORDER 7: PAPER 7: INK 0: C 

LS 

12 REM istruzioni 

15 PRXNT TflB 8; INK l;"t ";: P 
AUSE X0: PRINT INK 2;"r "j : PfiUS 
E 10: PRINT INK 3; "a "; : PAUSE 1 
0 

20 PRINT INK 4-.; " i : PAUSE 10 
: PRINT INK 1; " l PAUSE 10: P 

RINT INK 2;"e : PAUSE 10: PRIN 

T INK 3;"r" 

30 PRINT ''"Questo e' un gioco 
di abilita'" 

40 PRINT "Devi muovere il tuo 
T IR" 

50 PRINT "nel video senza seon 
trarti con" 

60 PRINT "la sci a-Hai a dispos 
izione 3 TIR" 

65 INPUT “Velocita'(0-10).0= 

Ueioce.10= Lenta ";sp 

7© PRINT '' INK 2; FLASH Ij AT 
10,3;“BUONA FORTUNA!" 

80 PAUSE 300: CLS 
85 PLOT 248,168: DRAU -241,0; 
DRAU 0,-161: DRAU 241,0: DRAU 0, 
160 
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90 LET a=11: LET b=16: LET a$= 
STR$ (INT CRND*4.) +5) 

95 PRINT RT 0,20; p$ 

100 PRINT RT a,b;"*" 

105 FOR 2=1 TO sp*2: NEXT Z 
110 IF INKEV 9» < > “ " THEN LET a* = I 
NKEYd 

115 PRINT RT a,b;"*" 

120 LET a=a+ (a$= ,, B") - (a$="7") 
130 LET b = b+ (a$ = "8") -Ca*=”5”J 
14-0 IF a =21 OR a =0 THEN LET a =« 
ss (a- 20 ) 

150 IF b =31 OR b=0 THEN LET b=R 
BS (b-30) 

160 BEEP .01.RND *20 

170 LET s=s+l: PRINT RT 0,0; "Pu 
ri t i : “ ; s 

180 IF SCREEN* C3,b)="*" THEN G 
O TO 200 
190 GO TO 100 

200 CLS : PRINT PRPER 1; INK 7; 
FLASH lj RT 11,0; " ? ! ! ! ! ! ! I 

BRNGi ( i i i > i i i t i i t i " 

210' LET‘ C = C- ì' ' 

220 IF C=0 THEN GO TO 270 
230 LET p$:" 11 ; FOR i =1 TO C : LE 
T P£=P£ + "A ”■ NEXT i 
24-0 PRINT ''-Rimangono solo c 
; «» TIR" 

250 PRINT ''"PREPARATI" 

260 GO TO SO 

270 PRINT RT 13,5; FLASH lj"IL 
GIOCO E' TERMINATO": PRINT AT 0, 
O;"Punti =”;& 






IL BARONE ROSSO 


Questo programma è più difficile di quanto non sembri a prima vista. Il 
Vostro obiettivo è quello di distruggere una nave da guerra bombardandola 
dal Vostro aereo che la sorvolerà ad andatura doppia. 

In questa versione del gioco avrete una scorta di 20 bombe, ma ne potrete 
variare facilmente il numero modificando il valore assegnato a M nella riga 
110. Sparerete premendo il tasto «F» (fuoco): non vedrete cadere nulla dal¬ 
l’aereo, ma, se colpirete l’obiettivo, la nave esploderà per riapparire poi mi¬ 
racolosamente restaurata, pronta per proseguire il suo instancabile viaggio 
da sinistra a destra. 

Avrete un limite di tempo di 300 secondi e il gioco avrà termine quando e- 
saurirete bojnbe o tempo. 

Il programma dimostra le eccellenti capacità grafiche dello Spectrum, ri¬ 
producendo fedelmente un aereo e una nave da guerra. 


l REM it barone rosso 
a REM di Martin Frobisher 
10 REM batti questa routine e 
falla andare prima di battere il 

resto del prooramaa_ 

20 FOR a*1 TO 8: READ a* 

30 FOR ts0 TO 7: READ b 
40 POKE USR a*+t,b 
50 NEXT t: NEXT a 

60 DATA "a“,135,195,227,255,25 
S,17,35,71 

65 DATA "S",0,128,192,255,254, 
192,128/0 

70 DATA "d",32,23,15,7,255,127 
,63,31 

75 DATA “f" ,Si, 159,159,159,255 
,255,255,255 

©0 DATA- “g" ,24© ,249,249,249,25 
5,255,255,255 

85 DATA "h",4,232,248,224,255, 
254,252/248 „ a „ _ 

90 DATA ", 
95 DATA *‘k ,0,0,0 /128,128,224 , 

224,224 

100 BORDER RND*6: PAPER RND*5+1 
: INK 9: CLS 

105 PLOT 8,39: DRAU 255,0 
110 LET m =20; LET t =300: LET Ss 
0• LET a si 

120 LET b=INT (RND*15> +1 
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130 LET a=a+2: LET b = b + l 
14-0 IF RND>.7 THEN LET a=a+i 
150 1F a>26 THEN PRINT RT 5,a-3 
* »• . L.Enr d — 3 

'160 IFh>26 THEN PRINT RT 15,b- 
l;" ";RT 16,b-l;" ": LET 

b«l 

165 REM disegna L'aereo battend 
o 'a'e's' in graphics mode 
170 PRINT RT 5, a-3;" 

160 LET t = t-1: PRINT RT 0,6; PR 
PER 2;"tempo»";t;" " 

165 REM disegna la parte superi 
ore della nave da guerra battend 
o'j'e'K'in graphics mode-la part 
e Inferiore battendo'd' ' f "g'e'h 
'in graphics mode 
130 PRINT RT i5jb-i; INK 0; ** é 

l4s IF m<x0'oR^ffl THEN STOP 
200 IF INKEY$="f” THEN GO TO 21 

0 

205 LET tst-1: GO TO 130 
210 LET m —m —1: PRINT RT 0,10; P 
RPER 2; "Bissi li =••;«; " " 

220 IF RBS ca-b)>2 THEN GO TO 1 
70 

240 FOR q*l TO 7 

250 BOROER RND*6; BEEP . 02 ,-q ; 
BEEP - 02,q 

260 PRINT RT 15,b- l; INK 0; "BB1 
B" ; RT 16 , b-1 ; "flMM", RT 15 , b-Tj 


INK 7;"**B*;RT 16, b-1; <: BBP 
270 NEXT q 
280 LET S =S +267 

290 PRINT RT 1,6; PRPER 2;"Punì 

300 IF INKEY$ < > " " THEN STOP 
310 GO TO 170 
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DIFENSORE 

Di Paul Toland 


Un gruppo di extraterrestri ha individuato una falla nella sorveglianza del 
nostro pianeta e sta cercando di penetrare attraverso questa zona debole 
della nostra difesa, minando la sicurezza della Terra. La nostra forza difensi¬ 
va può resistere ad un attacco in qualsiasi punto, ma questo la indebolirà 
sempre di più fino a rompere la barriera, infatti ogni zona debole che riceve 
un secondo colpo causa il collasso del campo di forze e lascia la Terra indi¬ 
fesa; questo avverrà anche se, nonostante gli sforzi, si produrranno più di 
nove zone deboli lungo il confine. 

Il Vostro compito, naturalmente, sarà quello di bloccare gli attacchi nemi¬ 
ci con la Vostra astronave; potrete anche restaurare ogni parte indebolita di¬ 
rigendovi immediatamente sopra questa e premendo il tasto «F». I tasti «5» 
ed «8» controllano i Vostri movimenti, muovendo nella direzione della freccia 
indicata sugli stessi. 
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Ci sono cinque gradi di abilità, e, poiché i primi livelli servono più che altro 
a far pratica, guadagnerete molti più punti giocando ai livelli più alti e impe¬ 
gnativi. 

Il fallimento è purtroppo inevitabile, dato che gli alieni renderanno sempre 
più veloci i loro attacchi ogni volta che i precedenti falliranno. 

Il punteggio verrà assegnato alla fine dpi gioco. 


1 FGR 3=1 TO 4; RE OD 3$ 

2 FOR t=0 TO 7: REflO b 

3 POKE USR a*+t,b 
4- NcXT t ; NEXT 3 

5 DRTR "3 " 253.. 0.. 255.. 0.. 255., 0. 
255,0 

6 DOTO "S" 

0 

7 DATA "d" 

0 

8_D0IR 255,255, 195, 195, 19 


0/0,0^, 255 x 0,255 , 
0 .. 0 .. 0.. 0.. 60 , 60,60,6 


5.195.. 195.. 195 

9 REM scrivi s battendo 
n graphics mode 

10 OL-5 : LET d $ = “ 


' a ' 


7 a primt nr xg,3; xnk 4.; 

S 2“? * ’'==** 

3©'PRINT AT 0,10; PAPER 2, INK 
9; FLASH 1;"DIFENSORE" 

4.(3 PRINT AT 20,5; INK RND*6, F 
lash l;"inserisci abiiita'i- 5 " 

50 IF INKEY*="“ OR INKEY*<"0" 
OR INKEY * > "5" THEN GO TO 50 
60 LET S=URL INKEY**2-1 
70 LET b=16. LET Val: LET W=0 
SO FOR i=1 TO 20 
90 LET 3 =INT (RND*23)+4 
100 FOR h =S TO 19 STEP v 
105 REM scrivi m battendo 'd'in 
graphi cs »ode 

11G PRINT AT 28,1; INK 4;d*;AT 
h,a ; INK RND*6;".”;AT 19 ,b;" ” 
120 LET b=b+(INKEY*="8”>-(INKEY 
* = "5") 

130 LET b=b+ ( b =3.1 - (b=27) 

135 rem scrivi n battendo'f'in 
graphics mode 
140 PRINT AT 19,b;"fT' 

1S0 IF INKEY * < >“f" OR d*(bJ="S” 
THEN GO TO 170 

160 LET w=w-l: LET d$(b)="=": B 
EEP .01,RND*20+10 
170 PRINT AT h,a;" " 

180 NEXT h 

190 IF b=a THEN GO TO 220 
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X95 
9 rap 
200 
TO 
210 
EEP 
220 
230 
24-0 
i fa 
250 
di f 
, RND 
20 + i 
260 
<JUO i 
O p i 
270 
260 
290 


rem scrivi = battendo's ' in 
hics mode 

IF d$(a) = “=“ OR lii =9 THEN GO 
24-0 

LET tf=w+i: LET d $ l a ) - ”=»" : B 
.0102.. RND*20 
NEXT i 

LET V=V*2: GO TO 60 
PRINT RT 5.. l; JNK H3 

UitO " ; . BEEP l..RND*20 
prxnt iNK RND*6 ;"-il campo 
orza e‘ folto dopo " ; : BEEP 
*20: PRINT INK RND*6; ((V- 1) 

> *s“ attacchi" 

i PRINT INK RND*6, FLASH 1; ' ** 
provare a difendere un altr 
ane ta?" 

i IF INKEY$ = “ " THEN GO TO 270 
i IF INKEY $ < >"n“ THEN RUN 
i STOP 


OR w=9 THEN 


d$ la) 
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CACCIA ALLA LETTERA 

Di Paul Toland 


Fate rotolare la pallina sul video sormontando le lettere in ordine alfabeti¬ 
co. Scegliete la velocità del gioco con i tasti «1» e «2», rispettivamente velo¬ 
ce e lento, e guidate i movimenti della Vostra pedina con i tasti «5», «6», «7» 
ed «8». 

Il gioco finirà se colpirete una lettera che non sia in ordine alfabetico e sul 
video apparirà la lettera che avreste dovuto colpire seguendo il giusto ordi¬ 
ne. 

Si tratta di un gioco costruttivo e molto divertente. 


1 

2 

3 

0 , 0 
10 


POR t =0 TO 7: READ Z 
POKE USR "a”+t,Z: NEXT t 
DATA 0 , 60 , 126,126,126,126,6 


LET X =1. LET y«l: LET a =1 
20 LET d=0: LET n C =65 _____ 

30 LET p=RNl>*7: PAPER P: BORDE 
INK 9 : CL3 . ^ „ 

input flash i.; "Scegli veloc 
(1-UEL 2-LENTA) ";S 
50 PRINT FLS5H 
IR-! 

60 POR t =1 TO 20 
7© RRINT FLASH RT t 


ACC 
1 , '* 

:rcc 

LET 


80 NEXT t 
90 PRINT F LASH lJ 

IR—LETTERA _ 

110 FOR i=65 TO 9® 
l£0 LET fX-INT +X : 

ry =XNT (RND *19) +2. 

130 PRINT RT ry,rx;CHR$ i 

14.0 NEXT i 

150 LET i$ sXNKEY$ 

160 LET a = ti $ = "8") - (i $ = ”5*’) + ti $ 
= *"• ) *a 

170 LET d=(i$ = "6") -ti$="7") + t i ® 
="“)*d 

180 PRINT RT y ,x; " ** 

190 LET X «X +3 : LET y =y +d 
19S LET x=x+(x=0)-(X=31): LET M 
=y + ty =0) - ty =21) 

200 LET n aCODE SCREEN* (y,X) 
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S05 REM scrivi • ba t t*endo ' a ' i n 
graphics mode 
210 PRINT RT y ,x; 

220 PRUSE 3*S 

230 IF n =32 THEN GO TO 150 
24.0 IF none THEN GO TO 320 
250 LET nc=nc+l: BEEP .l,nc-65 
260 IF n C <91 THEN GO TO 150 
270 FOR i=1 TO S 
280 BEEP .l,i: BEEP .1,8-1 
290 NEXT i 

300 PRINT RT 10,10; FLRSH 1; ***•*■ 
FRTTO**" 

310 GO TO 330 

320 PRINT RT 10,9; FLRSH 1; CHR$ 
(nc);"-HRI 5BRGLIRTO" 

330 INPUT FLRSH 1;"Provi ancora 

7"; a$ 

34-0 IF a$< >"n" THEN RUN 
358 PRPER 7: BORDER 7 
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L ORO DEL DRAGO 

Di D.C. Owen 


Il Vostro obiettivo è di riuscire ad accumulare più oro possibile vagando 
attraverso un complesso labirinto di gallerie, tane e porte, evitando il Drago 
e cercando di non affogare nei laghi. Premete il tasto «A» per avanzare», «L» 
per muovere a sinistra», «R» per muovere a destra. 

Prima di scegliere una direzione, avrete la possibilità di riflettere poiché il 
gioco avrà una pausa. 

Se sfortunatamente incapperete nel Drago o affogherete in un lago, il 
computer suonerà per Voi un breve motivo ed il gioco finirà. 


1 REM l'oro del drago 

2 REM di D C Owen 

3 RONDOMIZE : LET g=0 

10 BORDER RND*6: INK RND*5: CL 

S 

iS POKE 236S2, -1 

2® RRINT FLOSH l;''OT 2i,3^"L' 
ORO DEL DROGO";RT 21,8; OUÉR 1;” 


—Sé pftW 
i d'oro” 


"Hai :-*• 'g; 


l i ngo 11 


c ' e 


40 RRINT ''"Di fronte a te 
una";• GO SUB 1000 

60 LET b$=a$ 

70 PRINT '“O sinistra c'e'una’ 

; : GO SUB 1000 

80 LET is*a$ 

85 PRINT '"O destra c'e' una"; 

: GO SUB 1000 

86 LET r S-a $ 

00 print '' flosm 1 ;"Da quale 
parte vuoi andare?" 

L' FLOSH 1; " (Ri Di fr 
onte (Li Sinistra”'”(R 5 Destra 

110 INPUT K$ 

120 I*® k|*"a” OND b*="P" OR K$= 
r" OND r*=”P" OR OND ila 

”P" THEN GO SUB 2000 * 

130 IF lt* = "a ,, OND b*="G" OR * * = 
"l" OND l*s”G" OR Ki="r" OND r»= 
"G" THEN GO SUB 3000 
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14-0 IF k $ = "a " AND bt~"T" OR **- 
"l" AND t*="T“ OR k*="r" AND r$* 
"T" THEN GO SUB 4.000 
1S0 IF NQT tk*="l" OR k$="r“ OR 
k*=“a"J THEN GO TO 90 
160 GO TO 15 
9©9 BORDER 7; PRPER 7 
1000 RESTORE 

1010 FOR t =1 TO INT fRND*3> +1 
10S0 RERD a$ 

1030 NEXT t 

104-0 PRINT INK RND*6;a$: i_ET 3$ = 
a$ (2) 

1050 DATA " Porta"," Galleria"," 
Tana" 

1060 RETURN 

2000 REM »»Porta»» 

2010 GO TO 2000+INT (RND*4+li *10 
0 

2100 PRINT '"E' chiusa. Muovi,"; 
RETURN 

2200 LET q=INT (RND*9 + 1.> *100 
2210 PRINT '“Si apre.Ci sono“ ; q;" 

lingotti d'oro” 

2220 LET g=g+q: RETURN 
2300 PRINT '“Qui c'e' un lago.No 
n puoi vedere l'altra spo 

nda . “ 

2310 PRINT “Provi ad attraversar 
to'?” 

2320 INPUT et 
2325 CLS 

2330 IF C*(1><>"S“ THEN RETURN 

2340 LET k =INT (RND*3) *1 

235© IF k=2 THEN PRINT "Sei SC3P 

pato con “;g;“ lingotti.d'oro. 

”; STOP 

2360 PRINT RT 10.4; FLRSH 1;“Sfo 
rtunatanente, sei" 

2370 PRINT RT 11,9; INK 2; FLRSH 
1;"...affogato!IlGO TO 50G0 
2400 LET k=INT <RNO*9+lì *50 
2410 PRINT '“Questa stanza conti 

ene un INK 2; FLRSH 1;"DRAGO, 

* « 


2420 print -Ti richiede ";k;"tin 
gotti d'oro"'“oppure ti mangierà 

2425 PRUSE 200: POKE 23692,-1 
2430 FOR J=1 TO 20 
2435 BEEP .2,j 

2440 PRINT INK RND*6;TAB J; "5tan 


d-by ** 

P4.50 NHXT J 

2460 IF g >k-1 THEN PRINT "Ne hai 
a sufficienza.": LET g=g-k: PRU 
SE 100: RETURN 

2470 PRINT FLASH lj INK 2< ''Non n 
e hai a sufficienza e cosi'BYE B 
YE.“: GO TO 5000 
•3000 REM **Ga l ler i a ** 

3010 IF RND >.50 THEN RETURN 
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3©20 PRINT '"Sei scappato con 
g;"lingotti d'oro": STOP 
4-00O rem **Tana** 

4.010 GO TO 4-000+INT (RND»3 + li *10 
0 

4-100 PRINT "L_a tana e' piena.Muo 
Vi": RETURN 

4-200 LET q=INT (RND*10+1J *100 
4210 PRINT '"Ci sono ";q;"lingot 
ti ,d 'oro" 

4220 PRINT "aggiungi al tuo punt 
eggio." 

4230 LET 9 = g +q: RETURN 
4300 POKE 23692/—1 

4310 POR h =1 TO 24: PRINT : NEXT 
h 

4320 PRINT INK 2; FLfiSH 1;“OH NO 
» •« 

4330 FOR J =1 TO 15 
4335 BEEP 

■ 4340 PRINT TRE S*jJ INK RNf>*5; "■ 
4350 NEXT J 

4360 PRINT INK 2, FLASH 

un orso in i et ar go. , . " ' ''. . .sei m 

orto.'*: GO TO 5000 

5000 RESTORE 5020 

5005 FOR a=l TO 10 

5010 READ b,C: BEEP b,C 

5015 NEXT 3 

5020 DflTR 1,0,1/0,.5,2,.5,0,.5,3 
,.5,0,.5,-1,.5/0/.5/1,1/0 
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LA MATTONELLA PAZZA 

Di Ken Mahogany 


In questo gioco dovrete rimettere in ordine alfabetico le lettere che appa¬ 
riranno sul video in un riquadro di 4x4, come segue: 

A B C D 
E F G H 
I L M N 
0 P Q 

con una casella libera nell’angolo in basso a destra. 

Potrete variare la disposizione delle lettere premendo il numero corrispon¬ 
dente alla lettera che desiderate spostare e il numero della casella in cui vo¬ 
lete inserirla, e non pensate di poter barare. 

Saranno conteggiati tutti i Vostri spostamenti e dovreste farcela in circa 
40 mosse. 

Se desiderate cambiare l’ordine in cui appaiono le lettere all’inizio del gio¬ 
co, modificate la disposizione delle cifre nel DATA alla riga 420. 


10 REM La mattonella pazza 
20 REh © K Hahogany 
30 GO SUB 330 
4.0 GO SUB 200 
50 GO SUB 200 

90 INPUT INK 7;"Qua le «uovi 7"; 
X 

110 IF a (X) =32 THEN GO TO 90 

130 INPUT INK 7;TAB S; "Dove?";y 

14-0 IF a ly) 032 THEN GO TO 130 

150 LET a < y ) (X 'J 

160 LET a <x > =32 

170 LET 90=90+1 

1S0 GO TO 50 

200 REM ***òtampa video #*# 

210 PRINT RT 0., 3., PRPER 7.; INK 
3.= ” Numero tentativi INK 2, gr 

o 

220 PRINT '' INK RND*4;CHR* 3Q 
);CHR$ a (2J ; CHR$ a(3);CHR* a , 
” 1 2 3 4” 
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230 PRXHT INK RND 3 - 4 ; CHR* a»'S.«;C 
HR$ Sl&! ; CHR* a (7) ; CHR( a<3>,” 

S» 5 7 5 T * 

24.0 PRINT INK RND*4; CHR^ a f3) ; C 
HR* a(10);CHR$ a(ll);CNR* »t12), 

9 10 ii la¬ 
sso PRINT INK RND*4;CHR* a (13) ; 
C-HR* a ( 14-) ; CHR* a (15) ; CHR* a f 16) 
, " 13 14- 15 15" 

320 RETURN 

330 REM **ìhz$ e?naziona da ti a-** 
34.0 DIM a ( 16) 

350 FOR b=l TO 16 
360 RERD I» 

370 LET a (b) =» +64- 

360 NEXT b 

390 LET 90=1 

400 PRPER 6 : BORDER 2 

405 CLS 

410 RETURN 

420 DRTR 9,14,5,2,11.6,1,4. 22 ,7 
,-32,10/13,6.3,15 
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CACCIA ALLA PAROLA 

Di Ken Mahogany 


Il computer sceglie una parola dal suo vocabolario e Voi dovrete indovi¬ 
narla nel limite massimo del numero di tentativi che Vi saranno concessi in 
base alla lunghezza della parola. 

Il vocabolario può essere facilmente esteso o variato. 


10 REM Caccia alla parola 
20 REM © K Mahogany 
30 FOR g =1 TO RND*2S+1 
4-0 RERD a $ 

50 NEXT g 
50 l_ET n=LEN ai 
70 DIM bini. DIM dini 
50 for g =1 j o n 
90 LET big)=CODE a*(gì 
100 LET dfgisblgi 
110 NEXT g 

120 FOR j=l TO n+n/3 

14-0 CO SUB 4-10 

150 IF h=n TMEN CO TO 300 

190 PRINT •''' INK RND*6 ;"iatii 

la tua scelta n. " ; j 

200 INPUT Cf 

210 LET faCODE C* 

220 FOR g =1 TO n 

230 IF d l g) = f THEN LET d lgi =0 
24-0 NEXT g 
260 NEXT j 
265 GO SUB 4-10 

270 PRINT ■ INK 3;"Peccato,tea 
po scaduto . 41 
260 GO TO 330 
300 REM Vincita 

310 PRINT ' INK 4-; TfiB 4-; "Bravo 
hai finito.'" 

320 PRINT ' INK 4-; "Hai indovina 
to in "; j-1.; “ tentativi" 

330 PRINT ' INK 2,“La parola er 

g ** j ^ £ 

335 PRINT ' INK RND*5; "Pre»i U 
n tasto per continuare” 

34® PRUSE 4e 4- 
350 RUN 
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se© ORTR "uneasentc/'spectryt 
", " cambridge" /'azzardo "/'sottint 
eso" 

370 £>RTR "domanda", “qui z", "facc 
ia","cogna to","regis t r azione" 

380 DOTO “ tasi c f ormo La" „ "a»i 
che vl> te ‘, ‘r i sorgere ” , "mi g t i ore M 
390 DATA ■■ burro" ,frago le" , "snt 
ipatico"/'ato»o" /'nago" 

4.00 dota "stregone" .. "Ba ivfagi o" , 
"invidia","poii 2 iotto"/ , vagabond 
o " 

4-10 LET h =0 
4-15 FUR e =1 TO r» 

4-20 IP bvej=d(ej THEN PRIHT INK 
RND*6; 

4-30 IF btOodfe* THEN PRINT IN 
K RNE>*5;CHR3 ibie>>i: LET h=h+l. 
EEEP . 25 , h 
4-4-0 NEXT e 
4.50 BORDER RND*8 
4-55 let lettere" 

4-60 IP h-1 THEN GO SUB 500 
4-70 PRINT ' INK 0; PRPER 6; "Hai 
indovinato INK RND*5;h; INK 

0; l$ 

so© let i*(S TO :i="a" 

505 PRINT 
510 RETURN 
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PROVA DEI RIFLESSI 


Ecco un’occasione per mettere alla prova i Vostri riflessi. Apparirà una 
lettera o un numero in una posizione qualsiasi del video e Voi dovrete batter¬ 
la immediatamente sulla testiera. 

Partirete con 5 punti che manterrete se batterete la lettera correttamente, 
o che perderete di volta in volta se sarete troppo lenti o batterete la lettera 
sbagliata. 

Tutto ciò potrebbe sembrare facile, specialmente per il fatto che c’è un 
controllo della velocità da 0 a 10, ma le lettere apparse non vengono cancel¬ 
late, quindi dovrete ricordarvi anche quali sono già apparse. 

Il gioco terminerà quando resterete senza punti. 


1 rem Prova dei riflessi 

2 REM di D HarUiODd 

3 LET t =5 

IO PRINT TRE 10; INK RND*5; FL¬ 
ASH 1;“RIFLESSI" 

20 PRXNT ''"LO ZX SPECTRUM Sta 
»pera' sut video un carattere 

tu dovrai batterlo immediata 
mente." 

30 print ''"Se sbaglierai io Z 
X ti dara' un'altra chance/ i 

nizi arai il gioco con solo E p 
unti.” 

4.0 PRXNT ''"Ti verranno tolti 
2 punti se nonsarai sufficiente»» 
ente veloce mentre potrai aume 
ritare il tuo punteggio indovina 
ndo " 

4-5 INPUT "Speed (1-10Ì t 

50 PRXNT ' INK 2; FLASH li " 

U IR ! 

60 PRU5E 200 

70 CLS : POKE 23562/-1 

75 PRINT RT 0/0; INK li FLASH 
li "RIFLESSI RIFLESSI RIFLESSI" 

76 PRINT RT 2/0; INK 2; FLASH 
1; "PUNTI t 

77 IF l<1 THEN GO TO 230 

60 LET a =INT {RND*26) +96 

90 IF RND:-. 7 THEM LET a -INT (R 
NU*9) 4-4-S 

100 LET x=RH0*18+3: LET y=RND*3 

1 
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105 BEEP .1,0; PRINT RT x,y; IN 
K RND*5; FLASH 1;CHR$ a 
110 PAUSE t*7 
120 LET a $ - IiNKEY ^ 

125 XF a*= " THEN SO TD 220 
130 IF CODE a $=a THEN GO TO 170 
140 PRINT RT 0,0; XNK 2; FLASH 
1;“Errato,hai un punto in meno" 
150 PPUSE RND+200 
160 LET 1=1-1: GO TO 75 
170 PRINT RT 0,0; IHK 2; FLASH 

1;“ BEN FfiTTO! 

« « 

1S0 LET 1=1+1 

190 FOR t =1 TO 10: BEEP .1,t: N 
EXT t 

200 GO TO 75 

210 PRINT RT 0,0; XNK 3; FLASH 
1; " TROPPO LENTO 

i • 

215 PRUSE RMD+200 
220 LET 1=1-2; GO TO 75 
230 C'LO . PRINT RT 10,0; XNK RN 
D*S; FLASH 1,"Sei andato fuori p 
un leggio -CIAO. 1 " 

240 BEEP 1,-2: BEEP 2,4- 




POESIA 

Di Tim Hartwell 


Questo programma trasforma il Vostro Spectrum in un William Shake¬ 
speare... o quasi, infatti metterà sorprendentemente insieme delle frasi, sce¬ 
gliendo a caso delle parole dal DATA e le spazierà usando le righe 40 - 60. 

Le frasi appariranno sul video in colori diversi ed alcune sono fatte in mo¬ 
do tale che risalteranno usando il comando BRIGHI. 


5 RRNDOMIZE 
10 REM Poesia 
20 POKE 23092,-1 
30 IF THEN GQ TO 70 

40 POR J=a TG RND*3 
50 PRINT 
60 NEXT J 
70 LET a$ = " 

75 RE5TORE 

60 FGR a =1 TO RH£* a 12 

90 RERD b$ 

100 NEXT a 

HO LET X=4-EN i_ET y =LEN b* 

120 IF a*(x-l>=b*ey-l> THEN GQ 
TO 75 

130 IF X+y>=32 THEN GO TO 160 
140 L.ET a*=a$ + b$ 

150 GO TO 75 


160 PRINT INK RND*5; 6RIGHT fRN 
D>.3 ); 3$ 

170 60 TO 10 

200 DRTfi -distacco' "/‘iniziato 
”,"precoce ",“sebbene 
216 OffTft “discepolo “piafvyend 
o “/"solo “/“rayjitfnse “■ 

220 DRTR "solitario "/'nostalgi 
co ",”poi “ 
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TRIS 


Ritengo che non sia necessario spiegarvi come si gioca ai Tris. Voi ed il 
computer, a turno, tenterete di mettere in fila tre 0 o tre X nello schema. 

Diversamente da tante altre versioni computerizzate del gioco, che di soli¬ 
to sono imbattibili, questa Vi permetterà anche di vincere. Fate la Vostra pri¬ 
ma mossa impostando il numero corrispondente alla casella che volete con¬ 
trassegnare; la prima mossa spetta a Voi, ma il computer Vi ignorerà se non 
occuperete per prima la casella n° 5, che costituisce il centro dello schema. 


1 

REM 

Tris 


2 

REM 

di T Hartni 

od 




3 

REM 

da p roc 

j rami 

10 

DIM 

b(9) : £ 

>IM ; 

20 

FOR 

a =1 TO 

9 

3® 

LET 

b <a) =a 


40 

NEXT a 


50 

LET 

e =0 : LET Vi 

60 

LET 

n =0 


70 

LET 

X =4 



Il e D Harwo 


ma per 
p (9) 


ZX 80 


80 PRINT AT 5 j 0.; 

90 FOR 3=1 TO 9 
100 IF a =X THEN LET 


X =x +3 : PRIN 


110 IF bfa:«=0 THEN GO TO 32© 

120 IF b(a>=10 THEN GO TO 350 
130 PRINT INK RND*6; b La) ;" "J 
140 NEXT a 

150 IF D =1 THEN GO TO 380 
16© IF e=8 THEN PRINT ’ ' INK 1; 
FLASH 1;" HO VINTO ": GO TQ 730 
170 IF q=5 THEN PRINT '' INK 1; 
FLASH li" TENTATIVO FALLITO "; 
GO TO 730 

180 INPUT "La tua mossa ";z 
190 IF blZ)OZ THEN GO TO 180 

200 let q=q+i 

210 IF Z =11 THEN LET b(5>=10: G 
O TQ 60 

200 LET nasi: LET fe(Z>=® 
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FLASH 1;"O”; f 


LET f =3 
LET f =1 


23® GO TO 7® 

24.® FOR a a c TO d 

250 IF bfaJaa THEN LET b(ai=10 
260 LET a =a 4-/ 

270 NEXT a 
280 GO TO 60 

290 IF b f5) =5 THEN GO TO 2® 

300 LET b(d)sl0 
310 GO TO 60 
320 PRINT INK 1; 

LRSH 0; “ **; 

33® LET p(a)si 
34.0 GO TO 14.0 

350 PRINT INK 2; FLASH 1;'*X”; F 
LRSH 0; " **; 

360 LET p fai =4 
370 GO TO 14.0 
380 LET g s0 
390 LET c si: LET d=9; 

4.00 GO SUB 580 
4.10 LET cs3: LET ds7: 

4.20 GO SUB 580 

4.30 LET ds9; LET f»2 

440 GO SUB 580 

450 LET Cs2: LET d s8 

460 GO SUB 58® 

470 LET C si; LET d=? 

480 GO SUB 580 

490 LET d s3: LET fa© 

500 GO SUB 58® 

SI© LET C =4; LET d»6 

520 GO SUB 580 

530 LET C =7: LET d =9 

540 GO SUB 580 

550 LET g = g+1 

560 IF gsg THEN GO TO 60 

570 GO TO 390 

580 LET e =0 

590 FOR a se TO d 

600 LET ese+p(al: LET a»a + f 

610 NEXT a 

620 IF Es3 THEN GO TO 720 
830 IF gs® THEN RETURN 
64® IF esS THEN GO TO 240 
650 IF g si THEN RETURN 
660 IF e=2 THEN GO TO 24© 

670 IF 9=2 THEN RETURN 

680 IF 6=5 THEN GO TO 240 

690 IF g =3 THEN RETURN 

70© IF E si OR e=4 THEN GO TO 29 

© 

710 RETURN 

720 FOR 3 si TO 10: BEEP .1,0: B 
EEP .1,10-a: NEXT a 
725 PRINT INK 2; FLASH 1; “ HAI 
VINTO " 

730 BEEP .1,0: BEEP .2,0 

735 INPUT FLASH l;" Vuoi giocar 

a 740 C IF a X* il J f >**n" THEN CLS : RU 
N 
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750 PRINT ' ' *'OK , Grazie per 
par tit a" 


1 S 3 
4 5 6 
7 8 9 


X S 3 
4 0 6 
7 8 X 


O 

4 

X 


0X3 
O O X 
X O X 


0X3 
4 0 6 
X O X 


la 


2 3 
O 6 
8 X 
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MUSICA 


Questo programma Vi raffigurerà sullo schermo un’ottava di una tastiera 
di pianoforte che potrete suonare con il Vostro Spectrum. Fate scorrere le li¬ 
nee 3 e 4 prima di battere il resto del programma: otterrete in tal modo la ta¬ 
stiera del pianoforte. 

I tasti dello Spectrum da «Q» a «P» rappresentano i tasti bianchi; i tasti «2», 
« 3 », « 5 », « 6 », «7», «9», e «0» rappresentano i tasti neri: ogni tasto corrisponde 
a una nota musicale. 

Potrete modificare la lunghezza della nota alterando 0,3 nel BEEP riga 
105. 


1 REM Musica di D.Harwood _ _ 
a REM Fai andare le linee 3-4- 
prima di battere il resto del p 
rogamma 

3 FOR n B0 TO 7. POKE USR "P" + 
0,16: POKE USR " i "+n,232: NEXT n 
4- LET p**“" : LET n*»"" : LET P 
=0: LET X =0 

5 PRPER 0: INK 7: BORDER 0: C 
LS 

7 PRINT 

10 FOR m=i TO 5 

15 REM Si ottiene J battendo ' 

S 'in graphics mode-Si ottiene 

battendo “i"in graphics mode 
20 PRINT TRB 10; ■’Til liiilii " 

30 NEXT * 

4-0 FOR »«1 TO 4- ,,,,,,,,,, 

50 PRINT TRB 10;“1111111111“ 

60 NEXT m 
70 LET X*=INKEY* 

80 IF 1*="" THEN GO TO 70 
85 IF p*aJtft THEN GO TO 100 
90 GO SUB 1000 
100 PRINT OUER i;RT X,©+p;n$ 

105 BEEP .3,a 
110 LET P* = X* 

115 PRINT OVER 0;RT 0,10;“ 

“; «t s, 16; “1 m ) I J 

120 GO TO 70 
1000 IF 
p =2 

1005 IF X^”®* 

P =3 

1010 IF k*a“4.' 

P »5 


•THEN LET a=l. LET 
THEN LET a*3: LET 
THEN LET a=6. LET 
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1015 IF k*='*5" THEN LET 3=5; LET 

1020 XF k*=‘*6" THEN LET a -10: LE 
T p=7 

1025 IF KS=‘*8" THEN LET a=X3: LE 
T P = Q 

1030" IF k$ = "9‘* THEN LET a =15. LE 
T p =10 

1035 XF k* = ,, q" THEN LET 3=-l: LE 
T X =3 : LET P =1 

104.0 IF k* = ,, W" THEN LET a=0: LET 

lèi! XF kS=”«" THEN LET a=2: LET 

P =3 

1050 XF fc $ = ‘T '■ THEN LET 3=4: LET 
P =4- 

1055 IF K* = M t** THEN LET a=5: LET 
p =5 

1060 IF THEN LET a =7: LET 

1055 XF k*="U" THEN LET a =9: LET 

1070 XF K* = **i*' THEN LET 3=11: LE 

T p =8 


1075 IF Kt="0" THEN LET a=12: LE 
T p =9 

1080 IF k $~"R " THEN LET a =14.; LE 
T P =10 

1090 LET X =9 : LET n* = *'|“ 

1100 IF k*="l" OR K * = "2" OR k * = " 
4-" OR k * = ”5" OR k* = "6" OR k*="©” 
j>R k Js”9“ THEN LET X =0 : LET n* = 

1110 RETURN 
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BREAKOUT 


In questo gioco Voi controllate la Vostra mazza sul lato sinistro dello 
schermo, usando i tasti «6» e «7» per cercare di tenere in campo la palla. 

Lo scopo è di demolire il più possibile i tre muri colorati, tenendo conto del 
fatto che, demolendo i muri più arretrati, totalizzerete un punteggio più alto. 

Avete a Vostra disposizione cinque palline in ogni partita. Prima di inizia¬ 
re, dovete battere LET H = 0 in modo immediato per inserire il contapunti; 
incominciate poi il programma con GO TO 5 anziché RUN. 

Se, dopo aver giocato, volete conservare il programma, fate iniziare la 
nuova partita con GO TO 5, cosi il vecchio punteggio rimarrà in memoria per 
il nuovo gioco. 

Potrete indubbiamente apprezzare la grafica, il colore e il suono usati in 
questo gioco. 


1 REM Fai andar a Le Linee 2-4 
ràma di battere iL resto de i pr 

ograwaa 

2 FOR t=0 TO 7: READ 2 

3 POKE USR "a" + t,Z : NEXT t 

_ 4 DATA 0,6®, 126,126,126,126,© 

0,0 

5 RRNDOMIZE 
10 LET t =0: LET z=0 
20 LET tb=0: LET r«6 
3© B0RDER RND»7: 1NK 9. CLS 
4-® PRINT AT 1,0; INVERSE l; " 
BREAKOUT 

50 PRINT AT 17,0; INVERSE li" 
BREAKOUT 

60 PRINT AT 18,0;"Punti 
Palla n.";AT 18,0; over 1; "_ 

>0 £ftÌN¥ Al- 21 ;'57"Punleggio pi 
u alto ";h;AT 21,0; OVER l;- 


-60 FbP i=2 TÓ 16 , 

90 PRINT AT i,13; INK 3; "WVk' 

; INK0; " INK 4;"»»»"; INK 

5; "Tfl”; INK ©; *• •*; INK 6; “1 •• 

108 NEXT i 

110 LET a =-l; LET d = l: LET X =11 
; LET y =INT (RN£>*10) +5 
120 LET t b = t b + 1 
130 IF tb*6 THEN GO TO 310 
140 PRINT AT 19,15; tb 
150 PRINT AT r , 1; *• **; AT r+1,1;** 


31 



160 LET r =r + f INKEY $ = "6") - C INKEY 
$ = ,, 7" ) 

165 IF f=l THEN LET r=r +1 
167 IF r =16 THEN LET r=r-1 
170 PRINT RT r,l; INK 1; *'■**; RT 
r +ì ^ ■ 11 1 11 

190 LET X =x +a: LET y =y +d 
200 LET n- RTTR fy,X) 

202 REM Per ottenere il Simbolo 
• batti “a" in graphics aode 
205 PRINT RT y,x; INK 2; 

210 IF y =2 OR y =16 THEN LET d=- 

220 IF n =57 OR X =30 THEN LET a = 
~a: BEEP .01,20+RND*1© 

23» PRINT RT r,l;** ";RT r+1,1;" 
«» 

24.0 LET r =r + C INKEY $="6" ) - i INKEY 

*245 IF r = 1 THEN LET r=r + l 
247 IF r =16 THEN LET r =r -1 
25© PRINT RT r,l; INK 1;“T';RT 

r 4 3L “ " | u 

' 260 IF n <58 THEN GO TO 300 
270 LET t=t+<n-57i#5 
275 BEEP .01,20+RND*10 
280 PRINT RT 19,2;t 
290 LET a=-a 

300 PRINT RT y,x;“ GO TO (X> 

0) «204-110 

320 PRINT RT 10,3; FLRSH 1;“FIN 
E DEL GIOCO" 

330 IF t >h THEN LET h = t 
340 print '"li punteggio piu al 
to e'ora “;h 

350 INPUT "Giochi ancora?”;a# 
360 IF a*="n" THEN STOP 
370 CLS : GO TO 10 



Punteggi o gin atta aa- 



ZAP 

Di Paul Toland 


State tentando di impedire l’atterraggio degli onnipresenti alieni; questi ar- 
riveranno.da tutte le direzioni: verticalmente, in diagonale, da destra e da si¬ 
nistra. 

Dovete posizionare la Vostra base usando i tasti 5 ed 8 e sparare il Vostro 
missile con il tasto F (fuoco) in modo da intercettare il nemico: se bloccate 
la forza nemica con la Vostra astronave, non otterrete nessun effetto. All’ini¬ 
zio di ogni partita Vi verrà chiesto di scegliere il livello di difficoltà (0-5) in or¬ 
dine crescente. 


1 REM Fai andare le linee 2-6 
prima di battere il resto del p 

rogramma 

2 FOR a= 1 TO 2: READ a$: FOR 
t =0 TO 7 

3 RERD b: POKE USR a$+t,h 
4- NEXT t : NEXT a 

5 ORTO ,, a , ' i 0,0 / 0,24. / 60 / 25S,25 
5 255 

' 6 DRTfì *’S" ,0,24-, 60,9®, 255,90 , 
129,129,0 

7 LET C t = M ": LET 



8 FOR Z =1 TO 32 

9 LET C*=C*+CHR* 16+CHR* (RND 
»6>+b*(Z>: NEXT Z 

10 LET t=0 

20 INPUT FLRSH 1;"Batti live II 
o difficolta' (0-5) l 
25 PRUSE 50 

30 LET bp =999 : LET 9=16 
35 LET b = —1 
4-0 CLS 

50 PRINT RT 19,0; C $ 

60 LET t=t+l: LET r=INT (RND*3 
) +1 

70 PRINT RT 0,0;t 
80 IF r =3 TNEN LET p=INT (RND* 
12 ) 


90 IF r =2 THEN LET p=INT (RND» 
16) *2 

100 IF r =1 THEN LET p=INT (RND» 
12)+20 

110 LET i =r -2 
120 FOR J=l TO 19 
125 REM Assegna il simbolo A ba 
ttendo 's' in graphics mode 
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130 PRINT RT J,p; INK 1; “A" 

14-0 LET a*=INKEY* 

150 PRINT RT 18 , g; " ” 

160 LET g=g+ia$ = " 8 "ì *2-ia$ = "5") 
*2 

165 REM assegna ì L simbolo * ba 
ttendo 'a' in graphics mode 
170 PRINT RT 18,g; INK 2; "a" 

180 IF a $ = “f" RND b = -l THEN BEE 
P >01.. 0: LET b = 17 
190 IF b=17 THEN LET bp =9 
200 IF b:-ì THEN PRINT RT b , bp; 
*•; LET b = b — 1 : PRINT RT b ,bp; I 
NK 3; “ . '* 

205 FOR Z=S T 0 1*3 5TEP -1. NEX 
T Z 

210 IF (b = J OR b = j+l) RND bp =p 
THEN GO TO 35 
220 PRINT RT J,pj" " 

230 LET p=p+i 
24-0 NEXT J 

250 PRINT RT j-l,p;" »; INK 1} " 
INK 0; ** ” 

260 LET d*="Rlien e' atterrato 

■ t 

270 FOR Z=1 TO 22 

280 BEEP .1,Z 

290 PRINT RT 21,Z-l;d$(Z) 

300 NEXT Z 

310 PRU5E 10: BEEP .1.0: PfiUSE 
10: BEEP .2.. 0 

320 PRINT RT 0,0; FLRSH 1; INK 
3.: "Premi v - per continuare" 

330 PRUSE 4e4 

34-0 IF XNKEV$ = "y" THEN CL‘5 ; GO 
TO 7 
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CENTRATE GLI ASTERISCHI 

Di Paul Toland 


Voi siete un simbolo blù «**» che viaggia in lungo e in largo sul video col¬ 
pendo gli asterischi (*) evitando i quadri rossi. Dovete colpire tutti e 10 gli a- 
sterischi prima che il gioco finisca; se ci riuscirete Vi verrà segnalato il tem¬ 
po impiegato. Potrete muovere il Vostro simbolo con i soliti tasti 5, 6, 7 ed 8. 


INK 2.;"B”;RT 


INK 2, RT 


10 RRNDOMIZE 
20 FOR i=0 TO 31 
30 PRINT RT 0,i, 

ai, i ; 

4-0 NEXT i 
50 FOR i=0 TO 21 
60 PRINT RT 

■'70 * PRINT RT RNE>*19 + 1 ,RNE>*29 + 1; 
INK 2;"B” 

9© NEXT i 
100 FOR i=1 TO 10 

110 PRINT RT RNI>*19 + 1,RND*19 + 1; 
INK 3; " *" 

120 NEXT i _ ,„ 

130 LET t=0: LET h =0: LET X =3 
140 LET y =3 : LET a=0: LET d=1 
150 LET a$ = INKEY$ . _ 

160 IF a$="S" OR a$=”8” TMEN LE 
T d =0 LET a =SGN (URL a$-6> 

170 ÌF ai = ,, 6" OR 3$ = "7" THEN LE 
T a=0: LET d=SGN (URL a$-6.5)*-l 
180 LET x=x+a: LET y=y+d 
190 LET n=RTTR (y,x> 

200 PRINT RT y ,x; INK 1; *V 
205 BEEP -2,x 

210 IF n =59 THEN LET h=h+l 
220 IF h =10 THEN GO TO 25© 

230 IF n =57 OR n=58 THEN GO TO 
260 

240 LET t=t+l: GO TO 150 

250 PRINT RT 10,3; INK 5; FLRSH 

1; "Fini to in " ; t ; " secondi" 

260 input "Vuoi giocare ancora? 

"a $ 
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EVITARE GLI ASTERISCHI 

Di Paul Toland 


Vi trovate in uno spazio e Vi muovete con i tasti 5, 6, 7 ed 8: il Vostro com¬ 
pito è di rimanerci il più a lungo possibile senza colpire i «+»; potrete colpir¬ 
ne solo fino a sei e il tempo verrà segnalato alla fine del gioco. 


10 RRNDOMIZE 

20 FGR i=0 TG 31 _ 

30 PRINT RT 0,i; INK 2;"B";RT 
21 , i ; 

4.0 NEXT i 
50 FOR i a© TO 21 

60 PRINT RT i,0; INK 2;"B";RT 
i 31 ; "iB" 

'70 * PRINT RT RND*19+1,RND*29+1; 
INK 3; " +" 

90 NEXT i 


100 LET t =0 : LET h «0 : LET d =1 
110 LET X =2 : LET a =0 : LET M =5 
120 LET a$=INKEY* 

130 IF a$="5" OR a*="8" THEN LE 
T d=0: LET a =SGN (URL a$-6) 

14.0 IF a$="6" OR a$="7" THEN LE 
T a =0: LET d=SGN (URL a$-6.5ì*-l 
150 IF 3$="7" THEN LET d=-l 
160 LET x ssX +3 : LET y =y +d 
170 LET n sRTTR (y,X? 

175 PRINT RT y,x; INK 1; “B" 

177 BEEP . 2,X 

160 IF n =59 THEN LET h=h+l 
185 PRINT RT 1,1; h 

190 IF n =57 OR n =58 OR h=6 THEN 
GO TO 210 


200 LET t=t+l; GO TO 120 
210 PRINT RT y,X;" 

220 PRINT RT 10,6; INK 4.; FLRSH 
l;"Hai impiegato ";t;" secondi" 
230 INPUT "Giochi ancora?";a$ 
24.0 IF a $a"n " THEN STOP 
250 CLS ; RUN 
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ASTEROIDI 

Di Tim Rogers 


In questo gioco la Vostra astronave appare in un qualsiasi punto dello 
spazio, minacciata da una strana cintura di asteroidi raffigurati da lastre sul¬ 
lo schermo. 

La nave ha tutt’intorno uno scudo protettivo, il che significa che gli aste¬ 
roidi non possono distruggerla; l’unico problema è che sarete continuamente 
spinti verso l’alto da ogni asteroide che Vi urterà. 

Il Vostro intento deve essere quello di restare il più a lungo possibile sul 
video: più restate in basso e più punti potete guadagnare. La Vostra nave 
tenderà a spostarsi sempre verso sinistra, Vi basterà quindi premere un ta¬ 
sto qualsiasi per spostarvi a destra. 



1 REM Fai girare le linee 2-e 
prima di battere il resto dei p 

rograana 

2 FOR x=l TO 2: RERD a* 

3 FOR t =0 TO 7: RERD a 

4. POKE USR a $ +1 , a : NEXT t: NE 
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•p " , 0,8,8,8 ,2SS,255,12 


XT X 

5 DOTA 
6,60 

6 DATR "O" ,170,85,170,85,170, 
©5,170,85 

7 LÉT h =1 

8 POKE 23692,-1 

9 LET S =0 : LET U=15: LET p =10 

10 PRINT RT 0-1,p;" " 

20 LET p =p-<p >1) 

30 LET P =P + ( INKEY$ < > ’* '* ) #2# (p <2 

0) 

4-0 LET n =RTTR tO,p) 

50 IF n =58 TMEN LET 0=0-1 

P 55'iF 0=0 THEN GQ TO 180 
58 REM Ottieni it SiBbOlO 
ttendo'p'in graphics «ode 
60 PRINT RT O ,p; 

70 PRINT RT 21,0; 

75 REM ottieni il simbolo 
ttendo'o'in graphics mode 
80 PRINT TRB RND*20; INK 


BEE 
* ba 

m ba 


2 ; " 

83 PRINT 
SS FOR J=1 TO 10: NEXT j 
90 LET S ss+0 : GO TO 10 
100 IF h <S THEN LET h=£ 

110 PRINT RT 0,0;; INK 1; FLRSH 
1;;"ASTEROIDI :.il too ponteg 

f io e'“,s'" il ponteggio pio' al 
o e ' **, h 

INPUT "Uooi giocare ancora? 


8 


120 
; a* 

130 


IF a$="S" THEN CL5 


GO TO 
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CAMPO MINATO 

Di I.S. Howson 

Siete al comando di uno squadrone di carri armati che si trova di fronte a 
un campo minato nemico. Quanti dei Vostri carri andranno perduti nei tenta¬ 
tivo di trovare una via sicura per attraversarlo? 

Il computer presenterà un campo diverso per ogni partita. 

Guidate i Vostri carri sullo schermo usando i tasti avanti, su e giù. Se in¬ 
cappate in una mina, il carro armato salta in aria: dovete ritentare con i suc¬ 
cessivi. 

Le mine possono esplodere più volte e distruggere ogni tank che le urti. In 
alto sullo schermo apparirà il numero dei carri armati distrutti: se vincerete, 
trovando una via attraverso il campo minato, il programma terminerà suo¬ 
nando un breve motivo. 


ì REM Fai andare le lìnee 2-5 
prima di battere il resto dei f 
rogramma 

2 FOR t=0 TO 7: READ «,Z 

3 POKE USR "a"+t/y: POKE USR 
"S *' +1 , Z : NEXT t 

4 DATA 0,0,0,0,0,0,0,0 

5 DRTR 15,24-2, 15,244-, 15,24-8,1 


5,24-0 

10 LET S=0 
20 RRNDQMXZE 
30 LET fc=0: 5 -ET a =10 

40 PRINT RT 2,0; INK 2; FLfiSH 
l;-carri armati distrutti -;s 
60 PRINT RT a -1, b, 

65 REM Assegna il simbolo w b 
attendo 'a' e 's' in graphics mo 


70 PRINT RT a,b; INK 1;" 

60 PRINT RT a +1, b; INK lj ** WM“ 
90 PRINT RT a+2,b;“ 

100 LET b = b+ (INKEY$ = ‘’8" ì 

110 LET a-a+ (INKEY**"6")-(INKEY 

*120 IF b = INT (RND*30) OR a=INT 
(RND*20) THEN GO TO 150 
130 IF b-28 THEN GO TO 210 
140 GO TO 60 
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150 PRINT RT a„b; INK RNE>*6; FL. 
RSH 1J "BANG" _ ^ 

155 FOR t=-20 TO -10: BEEP .01/ 
t 

157 BORDER RND#7 
160 PRXNT RT a tl.b; 

; RT atl,b; "MB" 

165 BEEP_.01/X0+t 

4jbì“ + i * b; 



17© PRXNT 
; RT a+i,b; ", 

175 NEXT t 
180 LET 5=5 4-1 
190 PRINT RT 1/8; 

RRI flRMRTI" 

200 IF S >19 THEN STOP 
205 GO TO 20 

210 PRINT RT 10/0; INK 2; 
CRMPRTO” 

220 BEEP 2/20: BEEP 1.5/15 
P 1/10: BEEP .5/5 


INVERSE 1;"CO 


SEI S 
BEE 
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CARATTERI CUBITALI 


Questo programma Vi permetterà di ottenere la versione a caratteri cubi¬ 
tali di qualsiasi carattere grafico. 

Su ogni riga potrete avere solo quattro lettere, scegliendone il colore. La 
variabile X raccoglie l'indirizzo iniziale nella ROM dove sono i caratteri (non 
è possibile ingrandire parole chiave o funzioni). 


X 

a 

A- 

5 

36®? 
1® 
e le 
2® 
25 
3® 
4-0 
50 
60 
70 
T RT 
80 
90 
100 
110 
120 


rem caratteri Cubitali 
REM di D HarMOOd 

i p»y» j Q 

LET xsPEEK 23606 +256*PEEK 2 

input "Di che colore vuoi l 
ttere? •*; i INK i 
INPUT “Batti 4- lettere ";a* 
FOR X =0 TO 3 

LEI Pl=*+CODE a$(X+l.l*8 
POR 9=0 TO 7 

LEI P-PEEK (Pl+g) 

FDR ù“0 TO 7 

?E P-'SOINT fpy23 THEN PRIN 

; *NK ii’W" 

tEdmt j ;. 0 nex ^ g: NEXT * 

INPUT fin cor a ? 

POKE 23692,-1 ' 9 

IF S$(l)m"&" THEN PRINT ''' 

GO TD ±6 


Esce 

ì L 

sole 
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PRENDI LA PALLA 

Di Andrew Lovering 


in questo gioco vedrete una scatola aperta in basso sullo schermo; gui¬ 
dando la scatola dovrete tentare di catturare una palla che scende rapida¬ 
mente da un punto qualsiasi della parte superiore dello schermo. Premendo 
il tasto 8 muoverete verso destra, premendo il 5 a sinitra. Per confondervi ed 
introdurre un elemento di casualità nel gioco, apparirà al di sopra della sca¬ 
tola un coperchio dai movimento imprevedibile. Se la palla raggiungerà il 
fondo dello schermo o colpirà il coperchio, il gioco avrà termine e Vi verrà 
indicato il punteggio. 

Per ricominciare basterà premere un tasto qualsiasi. 


1 REM Fai andare te linee £-4. 
prima di battere il resto del p 
rograaaa 

S FOR t=0 TO 7: READ Z 
3 P OKE U5R "p *’ + 1 , Z : NEXT t 
4- DRTR 56,124-/254., 124-, 56,16, 1 
6,96 

5 LETT d =0 

10 LET a =14- : LET C =INT Ct*30J+ 


15 LET 
20 LET 
)+1: LET 
30 LET 
35 REM 
n graphics 
4-0 PR1NT 


X=RND*5: LET y=RND*5 
a *14-: LET C =XNT (RND*30 
b=0 
b = b + l 

scrivi f battendo 'p' i 
aode 

RT b/c; INK y; 


L.. Il 

y;: 

THEN 


50 LET e = INT (RND*30> 

60 PRINT RT 19/e/ INK X;* 

70 PRINT RT 20,a; INK x; 1 
80 PRINT RT 21/a; INK x;‘ 

90 IF INKEY*=“5" RND a>0 
LET a =a-1 

100 IF INKEY* = ’*8** RND a <29 TMEN 
LET a =3+1 

110 IF b = 18 RND C =e +1 THEN GO T 
O 190 

120 IF b =20 RND C=a+1 THEN 60 T 
O 150 

130 IF b =21 THEN GO TO 19© 

14-0 CLS : GO TO 30 

180 PRINT RT^0,0; INK 1} FLASH 
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;"Pun t ì d 

170 FOR j=10 TO 20: BEEP . 1,J 
175 BEEP . 1,20-J: NEXT J 
180 GO TO 10 

190 PRINT RT 0,0; XNK 1; FLASH 

;"Pun ti " ;d 

200 PAUSE 4-e 4- : RUN 




SLALOM FRA LE STELLE 

Di Tim Rogers 


State guidando la Vostra astronave in uno spazio pieno di stelle lasciando¬ 
vi dietro una lunga scia. 

Appena disegnato sul video l’universo con le stelle, il computer Vi conce¬ 
derà qualche secondo per visualizzarne la posizione; a questo punto da 
un’altezza qualsiasi dalla destra dello schermo la Vostra astronave comin- 
cerà il suo slalom fra le stelle, cercando di evitarle: il gioco avrà termine alla 
prima collisione, il punteggio Vi verrà assegnato alla fine del gioco e, quan¬ 
do colpirete una stella sentirete suonare un breve motivetto. 


1 REM Fai andare le linee 2-4 
prima di battere il resto del p 

rogramma 

2 FQR t=0 TO 7; RERC- a 

3 POKE USR "p'*+t,a. NEXT t 

4 DRTR 24 -, 60 , 126,255 * 126 j 90 j 1 
53 j 24 

10 LET S =0 

30 PRPER 0: BORDER 0. INK 7. C 

LS 


4-0 FOR a=i TO 30 

50 PRINT RT XNT (RND*20>, XNT l 
RND*32); INK 4; ,, * , ■ 

55 NEXT a 

60 LET p=tRND*21) 

70 FOR a=31 TO 0 STEP -1 
75 REM scrivi il simbolo .♦ bat 
tendo'p'in graphics mode 
80 PRI NT R T p, 

00 IF RTTR tp rf a-l.l=4 THEN SO T 
O 160 

100 PRINT RT p,a; , ‘f’ 

110 LET P =P + C INKEY $ = “ 6 " ) - i INKEY 
* = ••7") 

120 LET S =5+1 

121 FOR 9=1 TO 100: NfcXT 9 
130 NEXT a 

14-0 FOR g=l TO 20: NEXT g 
150 CLS : GO TO 4-0 
160 FOR d =1 TO 10 


165 BEEP . 1 > S 

170 PRINT RT p^a-2; 


INK 0; 
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INF. . 


180 BEEP .1,10-d 
100 PRINT P.T p,a-2; 

2O0 HEXT d 
210 FOR g=l TO 100: NEXT 
24-0 PRINT FLRSH l; "Punti = 



RIFORNIMENTO SPAZIALE 

Di R. Stubbs 


Siete al comando di un’astronave pattuglia che parte con 50 galloni di car¬ 
burante che lentamente diminuiscono col movimento. 

La Vostra riserva di carburante appare continuamente nella parte alta a 
destra dello schermo. 

Per poter rifornire la Vostra astronave, dovrete colpire i depositi di carbu¬ 
rante sparsi nello spazio e rappresentati dai quadrati verdi: ogni volta che 
riuscirete nell'Intento, otterrete 25 galloni di carburante. 

Il controllo della nave avverrà premendo il tasto M che, mantenuto in que¬ 
sta posizione, Vi permetterà di spostarvi verso destra, mentre se non toc¬ 
cherete la tastiera, la Vostra astronave procederà a sinitra. Il gioco termi¬ 
nerà e avrete il punteggio, se resterete senza carburante o se urterete l’aste¬ 
roide rossp. 


1 REM Fai andare le linee 2-4. 
prima di battere il resto del p 

rogramma 

2 FOR t =0 TO 7: REfìD a 

3 POKE USR "p"+t,a: NEXT t 

4- DRTfi 24-,60,126,255,126,90,1 
53,24. 

10 LET f =50 : LET S =0 : LET a =0 : 
l_ET b = 13 

20 PRINT RT 21,RND*30; INK 2;" 

30 LET r=INT tRNE>*10> +1 
35 IF r =9 THEN PRINT RT 8,RND* 
30; INK 4.; # e . 

4-0 LET S=S+1: LET f = f -1 
50 POKE 23692,-1: PRINT * 

60 IF b>2 THEN LET b = b-l 
70 IF INKEY$="m" RND b<28 THEN 
LET b=b+2 

72 IF f<10 THEN PRINT RT 
INK 3; INUERSE l;"RISERUfi 

EP .01,0: GO TO 75 

73 PRINT RT 0,20;" 

75 REM Scrivi ♦ battendo 

n graphics mode 
60 PRINT RT 0,b; 

90 LET P ssRTTR 




; TRE 


"? a iè 


*p* 
29; r 
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100 IF paSS THEN GO TO 14-0 
110 IF p =60 THEN i_ET f a f +25 
120 IF f=0 THEN GO TO 150 
130 GO TO 20 

140 PRINT INK 2; FLRSH 1;"Pecca 
to/1i sei scontrato": GO TO 160 
150 PRINT INK 1; FLRSH l;;"PecC 
ato,hai finito il carburante" 

160 FOR t=l TO 10: BEEP . A,t: N 
EXT t 


170 INPUT "Vuoi 

" i a % 

180 IF a$(1)a"S" 


giocare ancora? 
THEN RUN 
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ZOMBIES 


Partite dall’angolo superiore sinistro dello schermo e dovete raggiungere 
la parte bassa a destra. Potete muovervi a sinistra, a destra e in giù con i ta¬ 
sti 5, 6 ed 8, ma non potete risalire. Non dovete incappare in uno Zombie: fa¬ 
te attenzione... Vi stanno seguendo! 

Il programma usa i tratti di un viso per Voi ed una macchia scura per lo 
Zombie. 


1 REM Zombies di D.Harwood 

2 REM Fai andare le linee 3-6 
prima di battere il resto del p 


rog r aiuta 

3 FOR t=0 TO 7: RERD a.. b 

4. POKE USR "p " +t.. a : POKE U5R 
"0"+t,b: NEXT t 

5 DOTO 60,60,66,126,165,255,1 
65.255 

6 DRTfl 129,255,189,255,66,126 
,60,60 

10 PRINT 1NK 1; FLASH 1;“ZOMBI 
ESZOMBIESZOMBIESZOMBIESZOMB” 

20 PRINT '' INK RND*5;"DeVi fa 
re in modo di arrivare a casa (C 
) sano e salvo" 

30 PRINT INK RND*5;"Sei seguit 
o dagli INK 2.; FLRSH 1; "ZOMBI 

ES": INK RND*5; FLASH 0;" Non de 

vi scontrarti con loro” _ 

40 PRINT '' TRB 7, INK 2; FLRS 
H 1;“Preparati" 

50 PAUSE 300 
60 CLS 

70 BORDER RND *5 

80 PRINT RT 0,0; INK 1, FLRSH 
1;"P";RT 21,31; INK 1; FLASH lj” 


C" 

9© LET X =0 : LET y=l: LET C=4 : 
LET d =4 

110 IF INKEY$=“” THEN GO TO 110 
120 PRINT RT X , u ; INK 1 1" “ 

130 LET X=X+ <INKEY*«"6")- <X >22) 
140 LET y=y +(INKEY*="8")-(INKEY 
$s"5“)+(y <0)- cy >31) 

150 LET p=RTTR (X,y) 

160 IF P =58 THEN GO TO 300 
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161 FOR a=l TO 2 

162 IF C <20 THEN LET C=RND*3+X 
164. IF d <28 THEN LET d=RND*6-3+ 

y __ 

165 REM scrivi il simbolo • bat 
tendo 'o' in Graphics mode 

170 PRINT RT C .. d ; INK 2; 

171 NEXT g 

175 REM Scrivi il Simbolo & bat 
tendo 'p' in graphics mode 
180 PRINT RT x,u; INK 1;"©“ 

190 IF X =21 RND y =31 THEN GO TO 
210 

200 GO TO 11© 

210 PRINT RT 21,0, INK 1, Fi_R5H 

1;"BENE,SEI SALVO! M 

220 FOR T = 1 TO 10 

230 BEEP . l,t: BEEP .2., 10-t 

24.0 NEXT t 

250 STOP 

300 PRINT RT 10,0; INK 1; FLRSH 

1 ; "TI HRNNO PRESO." 

320 FOR a =1 TO 10 
330 RERD b,C: BEEP b,C 
34.0 NEXT a _ „ 

350 DATA 1,0,1,0,.5,2,.5,0,.5,3 
,.5,0,.5,—1,.5,0,.5,1,1,0 
360 STOP 
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ALFABETO MORSE 

Di John Knight 


Con l'aiuto di questo programma avrete l'occasione di apprendere l’alfa¬ 
beto Morse. 

Quando darete il via al programma avrete due possibilità: 

1 ) inserire un messaggio che il computer tradurrà in codice Morse con emis¬ 
sione di suono. 

2) Tradurre la lettera che il computer Vi darà in codice Morse. 

Questo programma mostra una buona applicazione del comando BEEF. 


10 REM Alfabeto morse 
20 REM © J Knight,1982 
30 GO SUB 9000 
4.0 POKE 23692,-1 

70 PRINT ' 1NK 2; FLASH l;"SCE 
GLI" 

80 PRINT '''"l-Dail'Italiano a 

l Morse" . 

90 PRINT '"'2-Dal Morse aii'it 

a ll0 n iF INKEYSa"" THEN GO TO 110 
120 GO SUB UAL (INKEY$Ì*1000 
130 GO TO 4.0 

1000 REM Dall'italiano at morse 
1010 PRINT INK l;''''"DALL'ITALI 
ANO AL MORSE" 

1020 PRINT '' INK 2; 
l tuo messaggio,poi’’ 

1030 PRINT ’TAB 3; 

X; "PREMI ENTER" 

104.0 INPUT W* 

104-5 PRINT 

1050 FOR g*l TO LEN IH $ 

1060 IF wi<>“ " THEN GO TO 
1070 PRINT 
1080 GO TO 1100 
1090 PRINT c$(CODE W*fl>>; 

1092 LET Z $ = C $ (CODE GO S 

UB 5000 

1100 LET TO ì 

111© HEXT g 

1120 IF INKEY$="" THEN GO TO 112 

0 


Inserisci i 
INK 2; FLASH 

1090 
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1130 RETURN 

3000 REM Dai morse all'italiano 
2010 PRXNT '•'"Ti darò' una lett 
era in codi ce" 

2020 PRINT "Morse, e tu dovrai i 
indovinar la" 

2030 PRXNT ' INK 2, FLASH 1;"PRE 
MI ENTER dopo la scelta" 

204.0 ir INKEY$="" THEN GO TO 204 


0 

2050 LET S=0 

2060 FOR 2*1 TO 10 

2070 LET J=97+INT (RND*26) 

2080 PRXNT ''"Quale lettera c* 
(j) ' "rappresenta?" 

2090 LET Z$=C$(J): GO 5UB 5000 
2100 FOR h*l TO 3 

2140 INPUT XNK RND*S;"La tua sce 
it.d e ' " * k li 

2180 If'cODE ( k f) *J THEN GO TO 2 
200 

2160 XF HO THEN PRXNT " XNK 1; 
;"NO! Prova ancora" 

2170 XF h-3 THEN PRXNT 
Rappresenta ";CHR* j 
2175 LET Z*=C*(J): GO SUB 5000 
3180 NEXT h 
2190 GO TO 2220 

2300 PRXNT ' XNK 2; FLRSH 1;"3X! 

E'giusto" 

2210 LET »*s+l 

2220 PRXNT '' XNK RND*5;"Punti 
sì" Domande ";z 

NEXT Z 
2250 RETURN 
2260 STOP 
5000 FOR C *1 TO 5 

5010 XF Z|(C)" THEN BEEP .1/0 
5020 XF lite)*"-" THEN BEEP .5,0 
5030 PRUSE 10: NEXT c 
5040 RETURN 

9000 LET a**".-a-...*-.-.*-..*.* 

..-.a--.#....*..».- 

-. . *-*. . - 

*. . . - . . - # -. . * * " 

9010 DIM c$(122,5) 

9020 FOR b=S7 TO 122: LET b$="" 
9030 FOR C=I TO S 

9040 IF amili*"*" THEN GO TO 907 
0 

9050 LET b$=fe$+aSMiJ: LET a$=a$t 

2 TO i 

9060 NEXT C 

9070 LET C*fb>=b$: LET a$=d$(5 T 
O ì 

9060 NEXT b 
9090 RETURN 
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SCEGLI 


1- DaLi'Italiano al Morse 

2- Dal Morse all'italiano 

DALL'ITALIANO AL MORSE 

inserisci il tuo Messaggio,poi 
PREMI ENTER 

1- Dall'Italiano al Morse 

2- Dal Morse all'italiano 

DALL'ITALIANO AL MORSE 

inserisci il tuo Messaggio,poi 
PREMI ENTER 

■ “"a •• a 

■ *" • • a • 

• ** • a • » “ * 



SCEGLI 

1-oaii'Italiano al Morse 
S-Dal Morse all'italiano 

Ti darò' una lettera in codice 
Morse, e tu dovrai indovinarla 

PREMI ENTER dopo la scelta 


Quale lettera 
rappresenta? 



INVERTENDO 


In questo programma Vi vengono dati 10 numeri che dovrete mettere, in¬ 
vertendone la disposizione, in ordine crescente (es. 1234567890). Verrà 
chiamato il primo numero con 1, il secondo con 2, il terzo con 3 ecc. Dal nu¬ 
mero chiamato avverrà l'inversione o capovolgimento dei numeri sino alla fi¬ 
ne del numero dato; in questo modo dovrete metterli in ordine col minor nu¬ 
mero possibile di tentativi. 

Cerchiamo di vederci chiaro con un esempio: se avrete i numeri 
1234567980, quando Vi verrà chiesto il numero da invertire batterete il nu¬ 
mero 9 (corrispondente alla cifra in nona posizione nel numero dato), otter¬ 
rete così 1234567908; se poi batterete il numero 8 (corrispondente alla cifra 
in ottava posizione nei numero attuale) otterrete 1234567809; infine battete 
ancora il 9 ed ecco in ordine 1234567890. 

Alla fine del gioco il computer Vi dirà quanti tentativi Vi sono stati neces¬ 
sari per mettere i numeri nel giusto ordine. 
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1 LET X*®: LET a**"" 

10 INK 1: CLS 

20 PRINT TRB 7; "R : PAUSE 10 
: PRINT *'E " ; : PAUSE 10: PRINT *' 
U : PAUSE 10: PRINT **E **; 

30 PAUSE 10: PRINT "R : PAUS 
E 10: PRINT "S "; : PAUSE 1®. PRI 
NT "5" 

4-0 PRINT ''“Davi provare e sis 


tettare i" 

SO PRINT "10 numeri in ordine 
crescente" 

60 PRINT "come esempio."; INK 
2; FLASH 1;"1234567890" 

70 PRINT ''"Esempio; se hai un 
numero "' INK i; FLASH 1;"12345 
67098" 


90 PRINT "dovrai invertirlo ba 


ttendo il numero "; INK 2; FLASH 
1;"8"; INK l; FLASH 8;",cosi'po 
trai cambiarlo in " 

100 PRINT INK 1; FLASH 1;"1234S 
67890"'; FLASH O;" e il gioco sa 
ra' finito " 


120 PRINT '' INK 3; FLASH 1;"Pr 
erni un tasto per continuare" 

130 PAUSE 1O000 


140 CLS : POKE 23562,-1 
150 FOR t=0 TO 9 
160 LET l =INT CRND*10>+48 
170 GO SUB 500: LET a$=a*+CHR* 
l 

180 NEXT t 

190 PRINT '' INK RND*5;a« 

210 INPUT "numero da invertire? 

"; r 

220 PRINT INK RND*5;"numero inv 
erso-"; flash 1 ;r 
230 GO SUB 1000: LET X=X+1 
240 IF a$<>"1234567890" THEN GO 
TO 190 

SS® PRINT '''' INK RND*5; FLASH 
1; att; " INK RND*5;a*;" INK 

RND*S;a* 

260 FOR t=10 TO 30: BEEP l/t,t; 
NEXT t 

270 PRINT " INK RND*5;"Hai fat 
to in ";x;" tentativi" 

280 STOP 

500 FOR i=1 TO t 

510 IF a*(i)=CHR$ l THEN GO TO 
160 

SS® NEXT i 
53© RETURN 
1000 LET b* = "" 

1010 FOR i=10 TO r STEP -1 
1020 LET b«=b$+a*Ci) 

1030 NEXT i 

1040 LET a$=a$( TO r-lJ+b* 

1050 RETURN 


56 



CARTELLONI PUBBLICITARI 

Di Paul Toland 


Con questo programma siete in grado di creare dei cartelloni pubblicitari 
provvisti di simbolo grafico e scritta scorrevole. 

Disegnate il soggetto del cartellone, controllandone la direzione, con i ta¬ 
sti 5,6,7 ed 8, usando il tasto 2 per le spaziature; appena finito potete ferma¬ 
re il tutto con il tasto S. 

Introducete quindi il messaggio scelto, di qualsiasi lunghezza, specifican¬ 
done il colore, la riga sulla quale desiderate che appaia e l'eventuale lam¬ 
peggiamento; fermatevi ancora con il tasto S. 

A questo punto avete la possibilità di cambiare il messaggio che avete 
precedentemente inserito. 

Il computer può immagazzinare fino a 5 cartelloni pubblicitari, ma un solo 
messaggio (a causa della sua lunghezza variabile), potete perciò disegnare 
fino a 5 cartelloni con 5 diversi colori ed un unico messaggio. 


supereercati con ottici prezzi 



1 DIM 

2 LET 
S CLS 
7 POKE 


S$ CSj.704.) 

C*=’ 

23692,-1: PRINT RT 21, 


1® PRINT INK 1; 
figura cartellone 


'l-De/inizione 
e massaggio"* 
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Cl-S)“'"3 
'4-Stop" 

GO TO 20 


a-Hostra il cartellone 
-Calibi a il Messaggio"'’ 

20 INPUT ;C 
30 IF C<1 OR 04. THEN 
4.0 IF C=4 THEN STOP 
50 IF C=3 THEN GO TO 230 
60 INPUT INK 2; FLRSH l;"Uideo 
N.7 (1-5) "ino 

70 if nod OR no >10 OR no<>lNT 
no THEN GO TO 60 
80 IF C -2 THEN GO TO 300 
85 INPUT "Colore inchiostro ?” 
i d 

90 PRINT INK Si"Per disegnare 
il cartellone usa i tasti 5,6,7, 
3 per controllare il cursore" 

100 PRINT ' INK l;"il tasto l p 

er disegnare il.siabolo* B“'"i 

i tasto 2 per spaziare"'“il tast 
o S per femarsi" 

110 LET X =16: LET y=l© 

120 LET S$(no ,1 TO 704)=" " 

121 FOR i=1 TO 3000: NEXT i 
125 PRINT RT 0,8; INK d;s$(no); 

RT y,x; INK l; FLRSH 1;“+“ 

130 LET i*=INKEY* _ 

140 IF i$=t"l" THEN LET C$ = "*" 
150 IF i$="2" THEN LET c$=" " 
160 LET X=X- (i $ = "5") + li *="8“) 
170 LET X=X+(X <0) - IX >31) 

180 LET y=y-li*="7") + li*=“6”) 
190 LET y=y+ ly<0>-ly>21) 

200 LET s$ ino ,y *32a-x d) =c$ 

210 IF i*="s" THEN GO TO 230 


'Su quale riga 
appaia 70-21 ' 


THEN GO TO 2 
.«con che col 


7(1 


220 GO TO 125 
230 INPUT INK 1; 
vuoi che la frase 
, i 

240 IF l<0 OR l>21 
30 

245 INPUT INK l;"., 
ore d ' inchiostro 2 

246 INPUT FLRSH 1;"FLRSHING 
-si 0-no)"; q 

250 INPUT INK 2; FLRSH i;"Inser 
isci il tuo messaggioi $ 

260 LET l* = " 

"+i * + " 

*• 

270 GO TO 5 

300 PRINT RT 0,0; INK d;s$(no) 
310 FOR i=1 TO LEN l$-32 
320 PRINT RT 1,0, INK Zi FLRSH 
q; l* li TO i +31) 

330 IF INKEY$ = " S " THEN GO TO 5 
335 PRUSE 3 
340 NEXT i 
350 GO TO 310 

708 IF no<l OR no >5 OR nooINT 
no THEN GO TO 60 


58 



CONTO CORRENTE 

Di Tim Hartnell 


Questo programma Vi aiuterà a tenere aggiornata la situazione del Vostro 
conto corrente; Vi guiderà introducendo informazioni riguardanti il Vostro 
conto, dandovi la possibilità di modificare, se ne avete bisogno, una partico¬ 
lare entrata e alla fine Vi darà informazioni su tutti gli assegni emessi: a fa¬ 
vore di chi, data di emissione e l’ammontare. 

Il programma Vi darà il bilancio finale (saldo) e, se necessario, Vi darà la 
«buona» notizia che siete andati in rosso. 


5 LET a*=CHRf 8+CHR$ 8+CHR* 8 
+CHR$ 8+CHR* 3+CHR* 8+CHR* 8 
7 INK 1: CLS 

10 REM Bìlancio conto corrente 
30 REM @ T Hartnell 1982 

on|(P o-jfiao 

Ì0 ìnput“ink ài “FLASH 1;“Inser 
isci l'ultimo bilancio ";b 

50 PRINT “Bilancio iniziale £" 


'Deposi to'' 
"yrrr ' 

INK Si FLASH 


; a*; 
lane 


60 PRINT 

li INK Si _ 

; OUER 1.; INK , _ 

70 INPUT INK Si FLASH 1; 
isci il versamento fatto 
r finire) d 

80 IF d=0 THEN GO TO 120 
90 LET b = b+d 
10© PRINT d,b 
110 GO TO 70 

120 PRINT '"Il bilancio p 
e 11 ' u 11imo"assegno effet 
era INK 2; FLASH i; 

130 INPUT INK Si FLRSH 1; 
i assegni hai fatto ";n 
14.0 DIM a*(n,22): DIM b (n 
150 FOR g=1 TO n 
160 INPUT INK Si FLASH 1; 
isci a noise di chi ";n* 

170 INPUT INK Si FLRSH 1; 
isci la data det t'assegno 
le» let a* tg) =n*+" -"+»* 
190 INPUT INK Si FLASH 1; 
anto era l'assegno ? ";q 
200 LET b(g)=q 


OUER 
io”; a* 

Inser 
(0 pe 


rima d 

tuato 

b 

“Quan t 
) 

"inser 

"Inser 
" ;»* 

"Da qu 
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210 
LRSH 
320 
pre»ì 
tti 'e 


PRINT 
l; "£"i b tgj 
INPUT ink a; 


'a$ <g) ; 
b _ 

. _ . _. _ se 

enter 

M ; u* 


INK 2 ; F 
corre t to 


230 IF u*="e 
24.0 LET b = b-q 
250 NEXT g 
260 PRINT ''' 
se ido" 

270 PRINT M _ 


altrimenti ba 
THEN 60 TO 160 


'Estratto conto e 


280 

PRINT 

290 

FOR 9=1 

300 

PRINT ai 

LRSH 

li"£"i b 

310 

315 

NEXT g 
PRINT ". 

3fe0 

■FrTFJT r 

e ' "i 

INK 2j 

325 

PRINT 


TO n 


INK 2; F 


"Il biLancio 
FLASH li "£” 


finale 
; b 


330 PRINT ''"Se batti' r ' parti 
col progranma" 

34-0 PRINT “daccapo" 

360 PRINT '“Se batti'p'stanpi 
l'estratto conto' 


batti 


380 PRINT '"Se 
i l programma" 

385 PRINT ''' 

390 INPUT U$ 

4-00 IF U * = “ r " THEN 
4-10 IF U* = "b" THEN 
4-20 IF U* = “P“ THEN 

4-30 IF ui = “e“ THEN . _ 

FLASH l;TAB 7 J "PROGRAHMA 
": STOP 
60 TO 390 

rem ««stampa 
FOR g si TO n 
LPRINT a$ (g) , "£“;big) 
NEXT g 
GO TO 330 


RUN 
GO TO 
GO TO 
PRINT 


ATO 
4-4-0 
4-50 
4-80 
4.70 
4.80 
490 


Chiudi 


50 
4-50 
INK 3J 
TERMIN 
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FORMULA UNO 

Di Said Hassan 


In questo gioco dovete guidare sullo schermo una macchina verde lungo 
un tracciato a zig-zag. 

Man mano che ogni tratto del percorso verrà completato, sul video ne ap¬ 
parirà uno nuovo. 

Il Vostro punteggio verrà visualizzato e così pure quello massimo raggiun¬ 
to. 

Con i tasti M e Z guiderete l’auto a destra e a sinistra, mentre con S deci¬ 
derete se giocare ancora. Buona fortuna! 


a POR t-0 TO 7 : PERO a,b 
3 POKE U3R "P"+t,a. POKE USR 
'*o"+t , b 

* NEXT t 

5 DftTfi 3.7® ,255, ©5 ,,255, 170, 60., 
35,6» 

e drtb 

5,255 

LET CS = ‘ C R fi 5 H " 

10 LET tt —& 

20 LET S =0 

25 LET X =5 : LET a=3: CLS 
30 FOR D =0 TO 20 
35 REM scrivi it SittbOlO i 
tencha 'p' in graphics s>. 3 de 
443 P RXNT TRB a ; INK 1 ; "*'* ; 

INK 1; 


2 ; 


bat 

INK 

(RN 


'50 LET a=a + (a<7 RN£> a) #SGN 
D-.5) +(NOT a)-(a =7) 

60 NEXT n 

70 LET a =X 

80 FOR n =1 TO 20 

90 LET- p =RTTR <n,XJ _ 

105 REM scrivi il Si»boto X bat 
tendo 'o' in graphics mode _ 

110 PRINT rt n-l,a; INK S;“B‘‘SR 
T n,x; INK 4-; "X" 

120 IF P =57 THEN GO TO 170 
130 LET a=X 

1*0 LET X=X+ CINKET*^”»**J - iINKEY 
$—"Z“ì 

1*5 FOR J=1 TO 30; NEXT J 
150 NEXT n 

160 LET S=S+n; GO TO 25 
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170 let »**+n 

175 rop a ~1 TO 10 : BORDER RND#7 
: BEEP .1,3-10 

180 PRINT RT 2,10+3; INK RND+5; 

cf (a) 

183 NEXT a 

185 PRINT RT 4- , 11J "PUNTIs" ; S 
190 IF h <S THEN LET h=S 
£00 PRINT RT 6,9; INK 1; FLRSH 
I; "punteggio piu' aito*";h 
£10 INPUT 

£30 IF a$(l) =*•»** THEN GO TO 20 


‘Vuoi giocare ancora? 
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UTILITÀ E DIMOSTRAZIONI PRATICHE 


Il Vostro Spectrum possiede colori, suoni e capacità grafiche eccellenti; è 
anche molto utile in campo matematico e può essere impiegato per risolvere 
utili e complessi compiti. 

Potrete avere un’indicazione della molteplicità dei modi in cui può essere 
usato lo Spectrum, provando i programmi che troverete qui di seguito. Il pri¬ 
mo è molto semplice e calcola il resto dopo una divisione; si usa il solito se¬ 
gno di divisione, essendo stato fissato alle righe 3-5. 

Il secondo è un programma dimostrativo che usa la straordinaria mano¬ 
vrabilità dello Spectrum, mettendolo in grado di contare da 0 a 99 scrivendo 
in lettere tutti i numeri. 

Il terzo programma converte la temperatura da gradi centigradi a Fahren¬ 
heit. 

Il quarto estrae una conversione grafica, usando una scala a colori facile 
da seguire, che traduce i gradi Fahrenheit in centigradi. 

Il quinto vi calcola quanto dovete pagare per un prestito, quando l’am¬ 
montare e il tasso di interesse variano. 


1 REM fResto di una divisione 

2 REM fai andare le linee 2-5 
prilla dei resto del progra»»a 

3 FOR t=© TO 7: RERD a 

4 POKE USR ”p " +1 / a : NEXT t 

5 DRTR 24,24,0,255,255,0,24,2 
4- 

15 POKE 23692,-1 
20 input INK i;"inserisci il n 
uaero da dividere ";a 

30 input ( INK 2;a," diviso pe 
r?") ; b 

40 PRINT ' INK RND*5; a; " -r b 
;”s= ";INT la/bJ;" col resto di " 
;a-b*INT (a/bJ 
60 GO TO 20 
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3212 T 32= iee col resto di 12 
234 T 9= 26 COI resto di 0 
213 -p ©= 35 col resto di 3 


5 POKE 23692,-1: PRINT RT 21, 

0 ; 

10 LET t*=" zero uno due 
tre quatt cinqu sei sette ot 
to nove " 

20 FOR Z=8 TO 9: FOR X=0 TO 9 
30 LET fc=l+6*Z 

4-0 1F Z =0 THEN LET q$^““: GO T 
O 60 


50 LET q$=t«(k TO K+5) 

60 LET k=l+6*X 

70 LET q$=q*+t*fk TO fc+5) 

SO PRINT XNK RND#5; q* 

85 FOR t=l TO Z*10+X: BEEP .1, 
10: NEXT t 


90 NEXT X: NEXT X 


Zero 

uno 

due 

tre 

quatt 

c i nqu 

sei 

se t te 

otto 

nove 

uno Zero 
uno uno 
uno due 
uno tre 
uno quatt 
uno cinqu 
imo sei 
uno sette 
uno otto 
uno nove 
due Zero 
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x rem «radi cantigradi-fshrtn 
He i t 

.fi rem Fai andare le linee 3-5 
pnaa da battere il resto del pr 
ograaaa 

3 FOR t*0 TO 7; READ a 
4- POKE USR "p " ■ft , a : NEXT t 
5 DATA 64,16®, 64-, 0,0,0,0,0 
10 POKE £3692,-1: PRINT AT 20, 

'20 INPUT INK 2; FLASH 1;“Gradi 
centigradi c 
30 LET f =1.8*0+32 
35 REM scrivi * battendo 'p' i 
n graphics aode 

' * INK *ND*5; c; centi 
9 ffda = f;"* fahrenheit" 

6© GO TO 20 


100* centigradi « 212* Fahrenheit 
50*centigradi « 122* fahrenheit 
32* centigradi = 89.6* Fahrenheit 
12*centigradi * 53.6* Fahrenheit 
0 * centigradi » 32* Fahrenheit 
-IO* centigradi « 14* Fahrenheit 
-50*centi gradi * -58* fahrenheit 



10 rem conversione grafica 
20 rem fahr. - cent. 

30 FOR /=30 TO 220 STEP 10 
4-0 IF F < 100 TMEN PRINT ” 

50 PRINT f ; 

60 FOR c —1 TO 5*(f-32J/-4.S 

65 IF C/6-l»INT (C/6-1J THEN L 
ET i »0 

66 LET i»i+1 
70 PRINT INK i 
75 NEXT C 
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76 LET i=0; PRINT 
80 NEXT f 

90 PRINT 'TAB 3; " 1020304-050607 
08090100" 



2 INK 1: CLS 

5 POKE 23692,-1: PRINT AT 20, 

0 

10 PRINT ''"interessi sui pres 
tati” 

20 INPUT INK 2; FLASH l;”inser 
isci la cifra ";a 

30 INPUT INK 3; FLASH i;"inser 
isci il tasso di interesse ";i 

4-0 LET i =i ./100 

58 INPUT INK FLASH l;"inser 
isci la durata del prestito in a 
nni "jy 

60 let y=i2*y 

70 LET b»a* (i /*12) / (1— 11+ (i /12) 

) t-y ) 

80 LET b»INT f b*100+ - S.> xl&B 

90 PRINT "Il pagamento Bensì le 
e' INK 2; FLASH l;"£";b 

100 IF INKEY*="" THEN DO TD 100 
110 GO TO 10 
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ORDINE ALFABETICO 


Questo programma mette in ordine alfabetico parole o frasi. Viene richie¬ 
sto inizialmente (riga 10) quante parole o frasi vogliate sistemare, poi potete 
introdurre parole una alla volta (riga 50) premendo ENTER dopo ognuna. A 
questo punto lo Spectrum Vi chiede di attendere... e avrete infine tutto il li¬ 
stato in ordine. 


10 REM ordine alfabetico 
20 INPUT INK Si flash i;"lnser 
isci il numero di frasi ";n 
30 DIM S$£n + l,15> 

4-0 POR t=I T0 n 

50 INPUT INK RND*5;("Ite» t; 
" ") ; LINE st (ti 
60 NEXT t 

70 PRINT INK RND*S; "Rttendi... 
sto scegliendo" 

60 FOR i =»1 TO n : FOR t =1 TO n 
65 LET b$»S«(t) 

90 IF s*(t+l> >=S*(tJ T HEN GO T 
O 110 

100 GO TO 13© 

110 LET s$ ( 11 =s$ (t fi) 

120 LET S*(t+1)=b* 

130 NEXT t: NEXT i 

14.0 FOR t»n TO 1 STEP -1 

150 PRINT INK RNDsS;S$ ft) 

160 NEXT t 


Attendi .. .sto scegliendo 

albico cche 

arancia 

banana 

dattero 

fichi 

me la 

noci 

pera 

ponpem ino 
uva 
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ORDINE NUMERICO 


Questo programma fa in modo che il computer sistemi i numeri in ordine 
crescente, stampandoli poi sul video. 


5 

1© 

uan t i 
n ord 
20 
30 

4.0 

Item 

4-5 

4-7 

60 

0 . 

60 

70 

*b 

80 

90 

100 

♦ li " 
110 


LET «■!: LET x»5: LET a»5 
INPUT INK RND»6; FLASH 1; **© 
numeri vuoi mettere i 

i ne?"; n 
DIM a (n+11 
FOR g=i TO n 

INPUT INK RND#5; FLRSH 1; C M 

•« • n • •• r ' ' 

/ 3/ 

NEXT 9 

FOR 9*1 TO n: FOR t*i TO n 
IF a ( t +1) <a C t J THEN GO TO 8 

LET b=a (ti 

LET a (t) =a et+11 : LET a(t+i) 

NEXT t: NEXT g 
FOR txn TO 1 éTEP -1 
PRINT INK RND*5;“Xtem ";n-t 
a (t) 

NEXT t 


xtem 

Xtem 

Xtem 

Xtem 

Item 

Xtem 

Xtem 

Item 

Item 

Xtem 

Xtem 

xtem 

Xtem 

Xtem 

Xtem 

Xtem 

Xtem 

Xtem 

Xtem 

xtem 


1:0 
2 : 1 
3:3 
4.: 6 
5 : 8 
6 : 12 
7: 24- 
8:32 
9:39 
10:43 
11:44 
12:64 
13: 66 
14: 76 
15:78 
16:83 
17: 90 
18:98 
19:3S5 
20: 776 
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RADICE QUADRATA 

Di Tim Hartnell 


Per mezzo di questo porgramma, lo Spectrum estrae la radice quadrata di 
qualsiasi numero. Comincerà chiedendovi un numero superiore allo zero e 
affronterà gradualmente il quesito per divisione, controllando ogni volta 
quanto sia vicino alla risposta esatta. 

La riga 80 non fa parte dell’apparato di controllo del computer, ma è utile 
per farVi controllare l’azione del computer mentre ricerca la risposta esatta. 
Poiché lo Spectrum possiede già la funzione SQR, questo programma ha un 
uso pratico limitato, ma è affascinante guardare come velocemente il com¬ 
puter si avvicini alla risposta. 
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10 REM soluzioni di radici qua 
drate 

20 REM © Hartnell 1982 
30 INPUT INK RND*S; FLASH l;"D 
i quale numero vuoi sapere la r 
adice quadrata? “;b 

4-0 XF b < =0 THEN GO TO 30 


4.S PRINT INK 1; FLRSH lj ' Il nu 
mero e' ";b 

50 LET a=INT IRNDeb )+1 


60 LET X=bya; LET y = (X+a>/2 
70 PRINT INK RND*5;y 
80 PRINT EXP RND*5;"Errore e 
' ”;RBS ly-SOR b) 

90 IF a =y THEN GO TO 110 
100 LET a su ; GO TO 60 
110 PRINT *' INK RND*5; FLRSH 1 
; "La radice quadrata e' ”;y 
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PROBABILITÀ CON I DATI 

Di Martin Frobisher 


Il programma che segue stampa una tabella ed un grafico che mostrano 
tutte le possibilità di gioco con tre dadi. 

La prima colonna della tabella mostra la somma totale del punteggio dei 
tre dadi, la seconda indica il numero di possibili combinazioni che possono 
dare questa somma, la terza da la differenza fra le due. Il grafico stampato 
di lato alla tabella è la normale curva distributiva e mostra le probabilità con 
cui possono cadere i dati. 


1 LET J»RND*6 

2 FOR 6=3 TO 1© 

5 PRINT RT b,20; PAPER j; ** 


6 NEXT b 
IO DIM a(18) 

20 FOR b=i TO 6 
30 FOR C=1 TO 6 
4.0 FOR d=l TO 6 


50 LET e=b+C+d 

60 let a ce) =a (e)+1 _ 

70 NEXT d: NEXT C: NEXT b 
80 FOR b=3 TO 18 
90 print rt b,0;b;TRB 5;atb);T 
RB 10; TNT (216/a Cb) ); " TO 1" 

100 PLOT INK 9;2*b+280,50+3*a(b 


) 


110 NEXT b 
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COMBINAZIONI E PERMUTAZIONI 

Di Said Hassan 


Questo programma calcola combinazioni e permutazioni. 

Vi sarà chiesto quale operazione volete che il computer svolga. Le linee 
300 - 400 controllano che i dati inseriti siano numerici e compresi nella ca¬ 
pacità della macchina. 

La permutazione di «n» diversi elementi «r» alla volta, é data dalla formula: 


Per esempio: prendiamo cinque diverse carte da gioco da dividere in 
gruppi di tre (n=5, r=3), avremo 5P3=60. 

La combinazione di «n» elementi «r» alla volta si ottiene dalla formula: 


nCr = 


n! 

(n - r)!r! 


Quante maniere ci sono di dare a tre libri un titolo, selezionandolo da cin¬ 
que titoli di libri diversi? 

(5C3-10). 


10 PRINT INK RND*5; FLASH 1;"' 
C' Combinazio Permute" 

20 LET a*=XNKEY$ 

30 IF OR 3*<>"P" RNf> 

>”C" THEN SO TO £0 

*0 PRINT INK 1; FLASH 1; ' "Inse 
risei N“ 

50 GO SUB 300: LET n =UAL n$ 

70 PRINT INK 2; FLASH l;"Insef 
i S Ci R” 

80 GO SUB 300: LET r«URL n$ 

00 IF r THEN GO TO 120 
100 PRINT ° INK RND*Si FLASH li 
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"TROPPO ALTO" 

HO GO TO 70 

120 PRINT '' 1NK RND*5; "Ca ICO lo 

• I 


130 LET z-n 

135 GO SUB 4-10 

14-0 LET b =3 . LET Z =D -r 

160 GO SUB 4-10 

155 LET C=a 

160 IP aS="P" THEN GO TO 195 

170 LET Z =r 

180 GO SUB 4-10 

190 LET C =C #a 

195 CLS 

200 PRINT INK RND*5;n," "iati" 

*• • f • «• s •• - f Q 

210 IP INKEY#»"" THEN GO TO 210 
220 CLS : RUN 
300 INPUT n $ 

310 IP n*="" THEN GO TO 300 
320 CLS 

330 POR X=1 TO LEN r»* 

34-0 IF (n* (X I > ="0" AND n$iX) <=" 
9”) THEN GO TO 370 
350 PRINT INK RND*5; “Errore "j 
FLASH li "RE-INSERISCI" 

360 GO TO 300 
370 NEXT x 

380 IF UAL n $ <34- THEN RETURN 
390 PRINT INK RND*5;“Troppo alt 
O *•; FLASH 1;“RE-INSERISCI” 

4.00 GO TO 380 
4-10 LET a =1 
4-20 FOR X=1 TO Z 
4-30 LET a=asx 
4-4-0 NEXT X 
4-50 RETURN 
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NUMERI PRIMI 


Senz’altro può essere utile avere una lista di numeri primi. Ecco come, 
con un semplice programma, si può ottenere la quantità necessaria di nu¬ 
meri che verranno richiesti. 

Inutile dire che, per chi possiede una stampante, basta sostituire alla linea 
110 la frase LPRINT d. 


IO LET X=l: LET 9=2: LET d=3 
20 INPUT INK 2; FLASH l;"Ouant 
i numeri primi? T *;a 

30 PRINT INK 2; FLASH 1; a; ** nu 
meri primi”; FLASH 0'1,2,3, 

4-0 FOR b=x TO a -d 

50 LET d=d+y: LET C=y+X 

60 LET e =INT tdsc J; LET f =d-e * 

C 70 IF THEN GO TO 50 

S0 IF 0=6 THEN GO TO 110 
90 LET c=c+y 
100 GO TO 60 
11© PRINT INK RND*S;d , 

120 NEXT b 
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EQUAZIONI SIMULTANEE 

Di Paul Stevens 


In questo programma si risolvono equazioni del tipo: 

ax+by = e 
cx+dy = f 


Vi verrà chiesto di inserire il valore delle costanti, il programma determi¬ 
nerà quindi il valore di x e y. 


5 rem equazioni simultanee 

6 REM di Paul Stevens 

10 PRJNT A T 0,0;"Equazioni sin 
uitanee' 


20 PRINT RT 0/0; OUER 1; INK R 
ND*5; ", 

30 P5xFff^PFJR^F55as7^^5r+5V*E” 
' "CX-M&YssF" 


4.0 INPUT INK 1; FLASH 1; "A*"; 
, INK 1; FLASH 1; b, INK 2; 

flash l; "E="; e 

50 INPUT INK 2; FLASH 1;"C="; 
/ INK 2; FLASH l;"D*";d, INK 2; 
FLASH 1;”F = ";f 

60 LET gst'c»b)-tdfa) 

70 LET hsf-daeJ+(bff} 

80 LET isfCMJ < -a * f J 


20 LET x LET u 

100 PRINT '' INK RND 


ai /g 
*5; a; 


"X+"; 


/ 

; 

a 


• »y s *< • g 

110 É>RINT ' ' INK 
"Y = "; f 

120 PRINT ''' INK 
«' M ; FLASH lì "Xb 
130 PRINT TAB 14.; 


RN£>»5; a; “X + "; 

1;"La rispos 
"; x 

FLASH 1;"Y = " 


y 


a 

c 

b 

b 

t 


14-0 INPUT INK 2; FLASH 1; "Ancor 

^9 ■ 3* 

Ì5©' IF 3$(iJs"S" THEN RUN 


75 



RX+BY=E 

CX+DYs*F 


2X+3Y = 14- 
2X+3Y=38 

La risposta e'x=4. 

YaE 
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RISOLUTORE DI EQUAZIONI 

Di Jeremy Ruston 


Questa routine usa il metodo di Newton per risolvere equazioni. Introdu¬ 
cete l’equazione con x quando Vi verrà chiesto dal computer; poi, in risposta 
a «Metti un punto di partenza», introducete un valore da cui il computer pos¬ 
sa iniziare a lavorare. Questa potrebbe essere una risposta vicina a quella 
che Voi ritenete esatta, o, se ci sono più risposte corrette, un numero vicino 
alla risposta che state cercando. 

Infine, premendo il tasto ENTER, potrete osservare come il Vostro 
Spectrum raggiunga la risposta. 

Per provarlo inserite x*x-5 (per trovare la radice quadrata di 5) oppure 
XI3—27.6 (per trovare la radice cubica di 27.6). 


1 REM SdtU* 
COI » 
S REM di de 
10 xNPtrr ink 
isci una funai 
20 PRINT INK 
; fi 

30 INPUT INK 
un punta di p 
40 PRINT INK 
arlenza "/s 
50 INPUT INK 
isci i i bbx er 
60 PRINT INK 
; ";err 

70 PRINT RT 


ione di equ&zi&fti 
eteda di Newton 
re#y Rusbiun 
2; FURSM l;“Inser 
one LINE f* 
RND#S;"Funzione." 

li FLRSH li «Metti 
srtenza s 
RNDes;"Punto di p 

3; FLRSH 1;"Inser 
rore : err 
RND*5;“Max errore 

10 , 10 ; INK l;“X=“; 


s 

80 LET X =S 

90 IF RBS (URL (f*))teff TMEN 


STOP 

100 LET tsURL 




LET x «X . 0000 


150 LET bs(URL (f*ì-t)/0»00001 
160 LET S=S-t/b 
170 GO TD 70 
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DISEGNARE GRAFICI 


I seguenti programmi dimostrano l’abilità dello Spectrum nel disegnare e 
stendere grafici. 

II primo programma disegna una serie di cerchi usando la funzione «CIR- 
CLE» fino a formare un cono; è possibile cambiare la forma del cono sosti¬ 
tuendo i valori di t, a e b. 

Il secondo disegna righe di diversa lunghezza in vari colori, dai quattro an¬ 
goli. 

Il terzo programma disegna un grafico con linee diagonali formando una 
simpatica figura. Potrete cambiare il colore e la densità della «maglia»: al re¬ 
sto penserà lo Spectrum. 

Il quarto programma disegna una serie di curve sinusoidali poste su di un 
diagramma; successivamente le cancella una per una dal diagramma fino a 
lasciare vuoto il video. Può essere interessante cambiare i valori iniziali di 20 
e 40 nelle linee numero 40 e 50. 

Il quinto disegna qualsiasi grafico dopo aver inserito un'equazione nella ri¬ 
ga 10. 

Il sesto programma disegna cerchi a diverse coordinate e con raggi inter¬ 
ni ed esterni; potrete farli sovrapporre creando simpatiche combinazioni. 
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X BORDER RND*6: PAPER RNDf6 
INK 9: CLS 

X® LET a =1: LET b = l 

I® CIRCLÌ 1 !^^ 85 STEP 5 

si hi5T a r ta: Lirr b - bta 



10 PLOT 0/0; DRRU ZNK RND*6; RN 
D*255/RND*175 

30 PLOT 2SS/175; DRfiU ZNK RND* 
©; -RND*255,-RNDfi?5 

30 PLOT 355/0: DRRU ZNK RND#6; 
-RND*355/RND *175 

4.0 PLOT 0/175; DRRU ZNK RND*5; 
RND *255/-RND *175 
60 GO TO 1® 
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10 INPUT ‘‘Colore inchiostro? " 

c 

20 BORDER 7: PRPER 7; INK C: C 
5 

30 INPUT "Scegli la densità' CI 
25J " ; b 

40 LÉT a =0 

50 PLOT 0,175: J>RRU 0,-175 
60 PLOT 0,0: DRRU 175,0 
70 FOR t =175 TO 0 STEP -b 
80 PLOT 0,t: DRRU a,-t 
90 LET a =a +b 
100 NEXT t 



10 LET XbRND#5; PAPER X: INK 9 
BORDER X ; Ci. 3 
15 FOR d=l TO S 
20 FOR a=0 TO 50 STEP 10 
30 FOR X =0 TO 10 STEP -05 
4.0 IF d =1 THEN PLOT 20*x +a , 4-0# 
SIN X+4 -0+8 

50 IF d-2 THEN PLOT OUER 1;20* 
X+a,4-0*SIN X+4.0+3 

60 NEXT X: NEXT a. NEXT d 



10 INPUT INK 2;“Inserisci la f 
unzione di x LINE a 6 

15 LET C «RND#5: PAPER C: SORDE 
R C; INK 9; CLS 

20 PLOT 0,175; DRAW 0,-173: DR 
AW 255,0 

30 FOR X=0 TO 255 
4-0 LET y=UAL 8 5 

50 IF X >255 OR y>17S THEN 60 T 
O 30 

60 PLOT X,y 
70 NEXT X 

30 PRINT AT 19,10; FLASH 1;“Y= 

a* 
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1 REM disegna cerchi 
10 INPUT "X coordinate ?" 
NPUT "Y coordinate ?";y 

16 input 'Partenza (primo 
io) ?; " ; s 

2© INPUT “Finale (ultimo 
o ) ?" ; / 

30 INPUT “Colore c 
4-0 FOR z —S- TO f 
50 C-IRC-LE INK c;x,y,z 
60 NEXT Z 
70 GO TG 1© 


; x : I 

ragg 
ragg i 
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OMBRA 

Di D. Harwood 


Ombra vi darà sempre diversi modelli, stampando una linea blù se viene 
da una linea nera e una linea nera se viene da una linea blu. 


l REM Ombra di D harwood 



7 NEXT t 
10 LET a * = "■" 

20 LET Z=RND*21. LET a=RND*21: 


LET b=RND*31 _ 

30 1F RBS <Z-b> > =21 TMEN LET Z 
=b —10 

40 FOR t=0 TO b 

50 LET d =0 

60 LET p=RTTR (a,tì 

70 I F p =56 THEN LET d=l 

30 PRINT RT 3/t; INK di a» 

90 LET d=0_ 

100 LET p=RTTR tflBS (Z —t) t b —1) 
110 IF p =56 THEN LET d=l 
120 PRINT RT RBS tz-t>,b-l; INK 
d;a$ 

130 NEXT t 
140 GO TO 20 
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CIRCUITO STAMPATO 


Con questo piccolo programma avrete modo di usare i tasti 5,6,7 e 8 per 
dirigere una sottile linea in giro per il video, disegnando figure a vostra scel¬ 
ta. Quando il programma gira, la linea continua a muoversi senza bisogno di 
premere nessun tasto. 


% UET LET a *127: LET b 

SS©7 

10 XF INKEY$ < > " " THEN LET a$ = I 

NK Ìtl!*LET b = b+ ia$ = "7") - = 

30 LET a=a+Ca* = "8'*ì - fa*="S".» 

4-0 IF a =256 OR 3=0 THEN LET a = 
RBS C3-2SS.* ^ . 

50 XF b = 176 OR b=0 THEN LET b = 

RBS (b—175) _ 

60 PLOT a,» b ; GO TO 10 
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ALBUM DA DISEGNO 


Il programma vi dà la possibilità di disegnare diversi stupendi quadri sul 
video. 

Con i tasti da 5 a 8 controllate i vostri movimenti. Potete cambiare il carat¬ 
tere con il tato «H» e il colore con il tasto «C», potete anche farlo lampeggia¬ 
re premendo «F» e fermarlo con «N». 


10 REM fi L bum da disegno 
20 REM di D Harmood 
30 PRINT INK 1;TAB 6;"ALBUM DA 
DISEGNO" 

. 4.0 PRINT ' ' INK RND*5; "Muovi u 
sando i cursori di con- trollo" 
50 PRINT " INK RND*5;"Se VUOi 
cambiare colore/ 

60 PRINT INK RND*5;"premi "; I 
NK 2; FLASH 1;"C“; INK RND*5; FL 
ASH 0;" e poi il codice del co¬ 
lore" 

70 PRINT '' INK RND*S;”Se vuoi 
cambiare il carattere/" 

©0 PRINT INK RND*5;"premi "; I 
NK 2; FLASH 1;"H"; INK RND*5; FL 
ASH è;" e poi il carattere" 

85 PRINT " INK RND#5;"Se lo V 
uoi^aapecjgiante premi INK 2; 

86 PRINT INK RNO*5; FLASH 0; ” f 

per spegnere il flash premi I 
NK 2; FLASH 1;"N"; FLASH " 

90 PRINT ' ' INK 1; FLASH 1; "PR 
EMI UN TASTO PER CONTXNURRE" 

100 PAUSE 10000-: CL5 

110 LET X«10: LET y=10: LET b=0 

120 LET C =2: LET h| = "«" 

130 PRINT AT X,y; INK c; FLASH 
b/ H $ 

140 LET +HNKEY*s"8")-(INKEY 

145 IF y=-l THEN LET y=0 

146 IF y =32 THEN LET y«31 

150 LET x=x+(INKEV$="6“)-(INKEV 
*="7") 
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155 IF X =-l THEN LET X =0 

156 IF X =22 THEN LET X=31 

16® IF INKEY$=”c" THEN GO SUB 2 
®0 

170 IF INKEY$ = ,, h M THEN GO SUB 3 
00 

175 IF XNKEY$ = ” f ’’ THEN LET b=l 

177 IF INKEY$="n" THEN LET b=0 

180 GO TO 13® 

30® input "Batti con un nuovo c 
olare ”;c 

21® RETURN 

300 input "Batti con nuovi cara 
tteri ";h$ 

31® RETURN 
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PAROLE INCROCIATE 


Inserite un certo numero di parole: il computer le nasconderà in un qua¬ 
drato le cui dimensioni dipendono dalla lunghezza della parola formata da 
più lettere. 

Queste parole possono essere scritte dal computer nel quadrato da destra 
verso sinistra, da sinistra verso destra, dall’alto in basso e viceversa, oppure 
in diagonale. 

Se troverete che sia troppo difficile scoprire dove siano nascoste le paro¬ 
le, basterà comandare al computer di risolvervi il problema facendovele 
comparire in modo inverso (bianco su nero). 

La parola più lunga non deve essere composta da più di 18 lettere. In cin¬ 
que-dieci minuti possono essere inserite circa venti parole di varia lunghez¬ 
za; un maggior numero di parole aumenterebbe eccessivamente i tempi di 
attesa. 

Potrebbe essere una buona idea inserire le parole in ordine decrescente 
di lunghezza. 


1 rem Parole incrociate 

3 REM di «J ElliOtt 
S BORDER RND*6: PRPER RND*6: 
INK 9: CLS 

19 print "se non vuoi sapere l 
a risposta " 

30 PRINT "preni il tasto ‘"5 FL 
RSH 1;“n”; FLRSH 0;. 

al??o P tIs!o'.' 9l,ri ” entì Prel,i un 

N io Vo T oo* =INKEY * ; " r,m "" ™ e 
60 CLS 

65 POKE 33693^—1 

£5 INT «T 0/10; "PAROLE CROCI 
RTE ;RT 0/10; OUER 1:" 

• • # * * * — 

input "Quante parole? ";a 
00 input "inserisci la parola 
piu lunga"; b$ 

1®® P|M c*(a/LEN b$5 
110 LET c* (15 =b* 

130 FOR C=3 TO a 

130 INPUT ("inserisci la parola 
numero ";c);d* 
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140 IF LEN d$>LEN 
RT 20,®; FLRSH li 
o lo la errata";: GO 
160 LET C* ecS «d$ 

190 NEXT C 

199 rem La linea seguente 
ene 22 spazi 

200 PRINT RT 19/0;” 


bt THEN PRINT 
Lunghezza par 
TO 13© 


conti 


210 

220 

230 

240 

250 

260 

270 

280 

310 

INT 


LET d =LEN b$+2 
FOR e=l TO d: FOR 

PRINT RT e y f ; “ 

NEXT f: next e 
DIM hfld/d) 

FOR q = 1 TO a 
LET J$sC$( q) 

PRINT RT 19/0; J$ 
LET X =INT (RND*d) 
(RND*d>+1 


fsl TO d 


+1 : LET y 


(RND*3): LET W=1N 


»=0 THEN GO TO 3 


Z=-l 
» =-l 


320 LET Z =INT 
T (RND*3) 

330 IF Z=0 RND 
20 

360 IF Z =2 THEN LET 
370 IF W=2 THEN LET 
380 DIM X(LEN j$,2) 

390 FOR 1=1 TO LEN J$ 

400 IF J±t l)=" " THEN 60 
410 LET X=X +Z: LET y =y+w 
430 IF X<1 OR X >d OR y<l 
THEN GO TO 270 


TO 480 
OR y >d 


440 


IF (NOT h$(X y y)>" ")• RND 

THEN GO TO 


(N 

2 


70 

445 LET k f L /1 ) =X .* LET k(l/2)=y 
460 PRINT RT 19/1-1; INUERSE 1; 
INK 9;J$(t) 

460 NEXT l 

470 FOR m=l TO LEN j$ 

480 IF J$(»)=" ** THEN GO TO 500 
485 LET h$ (X (M . 1) , X (» ,2) ) =j* (m) 
490 IF r*=”n" THEN GO TO 500 
495 BEEP .01.RND*10—RND*20: PRI 
NT RT k (m / 1) / X (n/2) ; j$ (») 

500 NEXT m: NEXT q 
510 rem La linea successiva con 
tiene 15 spazi 
520 PRINT RT 19/0;" 

530 FOR n =1 TO d: FOR p=l TO d 
535 BEEP .0i/RND*10-RND*20 
540 IF NOT h$(n/P)=" " THEN GO 
TO 565 

550 LET p $=CHR$ (INT (RND*26) +9 
7) 

560 PRINT RT n,p;pf: GO TO 570 
565 PRINT RT n,p;h$ <n,p) 

570 NEXT p: NEXT n 
580 PRINT RT 19/10; FLRSH 1 }"Te 
rminato" 

590 PRINT RT 20,0; FLRSH li "Pre 
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•'•■'O n<c o> c i*n T* 1 ' 


n> un tasto per la risposta" 

600 LET q*=JNKEY$: IF q* = “” THE 
N DO TO 600 

610 POR n al TO d: POR p«1 TO d 
620 IP h$(n,p)*" " THEN GO TO 6 
4.0 

630 PRINT RT n , p ; INUERSE 1; IN 
K 9;h|(n,pì 
64.0 NEXT p; NEXT n 
650 PRINT RT 19,10;" 
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CARTA DA PARATI 

Di Mark Charlton 


Questo programma prende il vostro nome, o qualsiasi parola composta al 
massimo da sedici lettere, e riproduce un modello colorato di tappezzeria. 


10 
20 
30 
e*'; ai 

4-0 

4-5 

4-7 

4-8 

58 

90 

100 

14-5 

150 

150 

180 

190 

195 

200 


REM C 
REM © 
INPUT 


Carta da parati 
© m c-har i ton 


inserisci il tuo no» 


LET ai=a$+” " 

IF LEN a* <16 THEN GO TO 4-0 
LET e *=aS t TO 16) 

LET 

BORDER 7; PfiPER 7: CLS 

POR 1>=1 TO 16 

FOR a=-16 TO 16 

XF a =0 THEN GO TO 160 

print ink rh^3); a*(RBS a); 

NEXT a 

LET a$=a$(2 TO )+a$(l) 

NEXT h 

PQKE 23692,-1 
GO TO 90 


R Digres issoossi Sergio R 
OR oigres issssi Sergio ro 
soR oigreS issi Sergio Ros 
ssoR oigres ii Sergio Ross 
issoR oigres Sergio Rossi 

issoR olgreS Sergio Rossi 

issoR oigres Sergio Rossi 
issoR oigres Sergio Rossi 
issoR oigreSSergio Rossi 
S issoR oigreergio Rossi S 
eS issoR oigrrgio Rossi Se 
reS issoR oiggio Rossi Ser 
gres issoR oiio Rossi Serg 
igreS issoR oo Rossi Sergi 
oigres issoR Rossi Sergio 
oigres issoRRossi Sergio 
R oigres issoossi Sergio R 
or oigres issssi Sergio Ro 
soR oigres issi Sergio Ros 
ssor olgreS ii Sergio Ross 
issoR oigres Sergio Rossi 

issoR oigre 
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ANAGRAMMI 

Di Ken Mahogany 


Un esempio della grande versatilità dello Spectrum potrà esservi mostrato 
con questo programma. 

Inserite una parola; il computer elaborerà un numero consistente di com¬ 
binazioni diverse, usando le lettere.della vostra parola. 

L’esempio mostra alcuni anagrammi della parola «solitario». 

10 rem anagrammi 
20 rem ©k Mahogany 
30 XNPLIT INK 2; "inserire la pa 
rota"; LINE a$ 

35 POKE 23592,-1 

4.0 LET n sbLEN a$: DIM atn) 

4.5 FOR X»1 TO 7 
50 LET a ti) «INT (RNDffi) +1 
6© FOR 2=2 TO n 
70 LET a tz )=INT (RND*n>+l 
80 FOR J=1 TO 2-1 
90 IF afjj=a(z) THEN GO TO 70 
100 NEXT j: NEXT Z 
110 LET b* = "" 

120 FOR b = i TO n 

130 LET b$sb$+a$(a<b>) 

14.0 NEXT b 

150 PRINT TftB 4.; PRPER X ; INK 9 
; b* 

160 NEXT X 
17© GO TO 4-5 

aorsioiLt 
iaotrslio 
roisoi lat 
oros nati 
t iriooaìs 
iaio Irots 
aioirotsi 
otsialiro 
oltoisira 
tra lisoio 
ai lotoirs 
iiairtsoo 
i irlaosot 
lraooitsi 
liiaotrso 
aoisi11 ro 
ritoas loi 
tooIsirai 
srolitioa 
ioaiotrls 
itsi iroao 
riiaisoot 
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FIGHTER 

Di Paul Toland 


Questa volta, tornando ai giochi di movimento, Vi trovate alla guida di una 
caccia e dovete distruggere un’astronave aliena. Comparirete al centro del 
video col simbolo | > < 1 ; in alto a sinistra scorrerà il tempo, mentre l’astro¬ 
nave nemica comparirà sullo schermo con movimenti casuali. 

Come al solito, con i tasti 5, 6, 7 ed 8 Vi potrete muovere, mentre con F 
potrete far fuoco. È da notare che lo spostamento del caccia avverrà insie¬ 
me a tutto il video, quindi rimarrete sempre in mezzo allo schermo. 

Quando riuscirete a piazzare l’astronave in mezzo alle Vostre freccine 
potrete far fuoco, sicuri di distruggere gli alieni. A scopo di gara viene indi¬ 
cato anche il tempo. 

Per quanto riguarda il programma, tenete presente che la velocità può es¬ 
sere aumentata modificando la linea 150. 


1 rem Fai andare le linee 2-4- 
prima di battere il resto del p 

rograana 

2 FOR t=0 TO 7: RERD a 

3 POME USR “a "+ t , a : NEXT t 

4- DRTfl 24- / 60 , 126 , 255 , 126 , 90 , 3. 
53,24- 

10 LET t =0 

20 LET X = INT (RND*32> . LET 
NT (RND*22J 

30 PRJNT RT 10/14-; INK 1; FLRS 
A * ^ ^ 11 

4-0 IF tOlNT C t s2ì *2 THEN SO T 


O 00 

50 IF X>-1 AND X <32 AND U>-1 
ND y <22 THEN PRINT AT u,x;" " 
60 LET gay+INT IRNDsSi-1 
70 LET X =X +INT (RND*3) -1 
80 LET a$=XNKEY$ 

85 IF X > —1 AND X <32 AND 
ND U<22 THEN PRINT AT y,x;" '* 
00 LET X=X*(a$ = ,, 5* , )-f8$ = ,, 8”) 
100 LET y =y +• la*»"?") - (a* = "6") 
115 REM Disegna il simbolo A l 
ttendo 'a' in graphics aode 
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120 XP X>-1 AND X <32 AND y >-l A 
ND y <22 THEN PRXNT AT y^x; 

130 IF a*=“f" THEN BEEP .01,0 
140 IF a*="f" AND X =15 AND y =10 
THEN GO TO 170 

150 LET t-t+1: PRXNT AT 0,0; XN 
K S * t 

160 CO TO 30 

170 FOR V =1 TO 10 _ 

180 PRXNT AT 10,16; BEEP .0 

1,-10-V 

190 PRXNT AT 10,15;" **: BEEP .0 
1,V 

20© BORDER RND *7 
210 NEXT V 

220 PRINT AT 18,0; XNK 2;"L'hai 
preso in ";t;“ secondi." 

230 PRINT ' FLASH l;“Vuoi prova 
re ancora'?” 

24-0 IF INKEY* = "” THEN GO TO 24-0 
250 IF INKEY*="S" THEN CLS : RU 
N 
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PIU’ ALTO - PIU’ BASSO 


È un gioco molto semplice nel quale dovete indovinare se il numero da 
scoprire è più alto o più basso di quello precedente. 

Se sbagliate venite penalizzati di 10 punti, se indovinate naturalmente 
guadagnate 10 punti. 

Attenzione a non finire sotto lo zero. 


1 REM Piu' alto ✓ Piu' basso 

2 REM di D Harwood 

10 LET p =100: POKE 23692,-1 
2® PRINT RT 21,0; TNK RND*5;"P 
iu' alto / Piu' basso"; QUER 1;A 

T 30 *PRINT INK RND*g;"Ora ti 

darò' un numero,tu dovraidire se 
il numero seguente sara'piu' al 
to o piu' basso" 

4-0 INPUT INK 1; FLASH 1; "Inser 
isci la scala di valori per"'"nu 
meri"; a; ink 1; flash i;** a b 
60 LET X=INT fRND*b+a) 

66 PRINT '' INK 1; FLASH 1;"Ha 
i ";p;" punti" 

57 IF P =0 THEN GO TO 190 
60 PRINT ' INK RND*5;"Il nu*er 
o e ' " ; x 

70 INPUT "Pensi che ii numero 
successivo sara' piu' alto o pi 
u' basso?"' INK l; FLASH 1;“(H-p 
iu'alto l —piu'basso)"; a $ 

80 LET y*INT (RND#b+a) 

90 IF X<>cy THEN LET b*«"Piu' a 

l 10O IF X > atf THEN LET b**"PiU' b 
asso " 

110 IF a$s“h •• ANO X < su OR a$ = " l 
" AND X > =y THEN GO TO 150 
120 PRINT INK RND*5;“Errato, il 
numero seguente era flash i; 

b ?30 PRINT INK RND*5;"Era y_ 
14.0 LET P =p-10: LET X =y : GO TO 
55 

150 FOR t*10 TO 30: BEEP l/t,t: 
NEXT t 
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160 PRINT INK RN£>*5; "Esatto , i l 
numero seguente era"'; FL.RSH 1; b 
$ 


PRINT INK RND*5;"Era ";y 
LET p =P +10: LET X=y: GO TO 


170 
180 
55 

100 CL5 ; POKE 23692,-1 
200 FOR t*l TO 10 
210 FOR g*0 TO 15 
220 PRINT INK RND*5;TRB 
fuor» punteggio" 

225 BEEP .01,g+t*2: 

5 


Si "Sei 
BORDER RNDf 


230 NEXT g 
24.0 NEXT t 
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JACKPOT 

Di D. King 


Tentate la fortuna con la famosa mangiasoldi: potreste racimolare un bel 
gruzzolo, oppure... 

Questo gioco, infatti, non fa altro che riprodurre la slot machine con i tre 
classici simboli che, se compariranno due o tre volte contemporaneamente, 
aumenteranno il vostro gruzzolo di 8p o 15p. Si parte con lOOp a disposizio¬ 
ne. Può capitare casualmente di trattenere alcuni simboli e lanciare gli altri, 
questo verrà deciso premendo «h» (hold) o «n» (not hold). 


1 LET t| = "nnn •’ ; DIM a*(3): LE 

T : LET psl©0 

2 PRPER 7: BORDER 7: INK 9: C 
LS 

10 PRINT RT 3 , 12; PRPER 1; INK 
9; " JRCKPQT" ; RT 5,12; INK S;"MM 
■■■" R T 6,12; INK 2; 

T 7 12 ’ 

20 PRINT R T 6,12; I NK 2; ■ ■ 

■“ ; RT 7.12; “MiÉBÉr ; RT S,12;"B 


: LET p*100 
BORDER 7: INK 9: C 


; RT 7,12; 


3© PRINT ' ' FLRSH 1, INK 1; ’Pr 
emi R per un tiro.Costo 5p" 

4.0 PRINT ' ' "Rmbo pago Bp...Ter 
no pago 15p” 

45 IF INKEY*< >"r" THEN GO TO 4 
5 


50 LET p =p —5 
55 PRINT RT 16,0; 
O Idi : pi " •* 

60 IF t$ ti) < >"h" 

) xbtl INT tRND*7) -4-1) 
90 IF t$(2ì <>“h" 

)«bitINT fRND*7) +1) 
100 IF t$ t3) < >"h" 

) «bt tINT CRND*7) 4-1) 
110 FOR /si TO 3 


INK RNDj 5;‘*S 
THEN LET a$(l 
THEN LET a*(2 
THEN LET a $(3 


120 FOR J si TO 7 

125 IF ti C /) s'*h** THEN GO TO 160 
130 PRINT RT 6, 11+2*-/; b$ ( J) 
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_30 IF 

2) THEN —f , w. 

E 185 5 PRINT AT 7,13; 

7 ,15; ; AT 7,17; 

190 LET t$="nnn" 

192 PRINT RT 16,0; 

Oidi ■ •* : B 
195 

280 PRINT INK 1; 

3; “H“ ; RT 7,15; **H f * 

210 INPUT INK 1; 

1; ”H“; FLASH 0;** se vuoi irati 
ner lo, altri»enti FLASH 1 

”N“FLASH 0, " LINE t* 

220 IF 115 =*'h“ THEN PRINT RT 
7,13; PRPER 1;"H”; GO TO 230 
225 PRINT RT 7,13; INK 2;"B” 
230 IF t#<2)«"h" THEN PRINT. RT 
7,15; PRPER 1;“H“: GO TO 240 
&3S PRINT RT 7,15; INK 2; "M 
24.0 IF t4r<31=“h" THEN PRINT RT 
7,17; PRPER l;"H”: GO TO 250 
24.5 PRINT RT 7,17; INK 2; 

250 PAUSE 100 
260 GO TO 50 
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COLOURMIND 


Si basa sulle normali regole del gioco Mastermind. (Invicta). Lo Spectrum 
sceglie quattro colori a caso che dovrete indovinare; poi, quando vi chiederà 
la vostra scelta, dovrete battere il numero corrispondente al colore desidera¬ 
to. 

In seguito vi verrà detto quanti colori avete indovinato nella giusta posizio¬ 
ne (nero) e quanti ne avete indovinati nella posizione errata (bianco). 

Dei quattro colori scelti nessuno é doppio. 


1. REM ColDurnind 

2 REM di David HarbtOFtJd 

4. DIM 3 (4.3 : DIM b (4.3 

5 LET 9=1 

6 LET a$=CHR$ 8+CHR$ 8+CHRS 8 
+CHR* 8+CHR* 8+CHR* B+CHR* 8+CHR 
« 8+CHR$ 8+CHR$ 8+CHR* 8 

7 POKE 23692, 255 

1® OUER 1: PRINT RT 21,8; ,l M3S t 
er Mind" ; 

2® PRINT a*; “_ 

3® PRINT ' T '"Ora sceglierò 4. 
co Lori.Tu devi" 

4.® PRINT ”indivinar li in 2® te 
ntativi •* 

6® PRINT '“Premi un tasto per 
continuare.“ 

70 PRUSE 1000® 

80 FOR tal TO 4. 

20 LET aftJaINT (RND*83 
28 IF a (t) sa (1) RND tOl OR a( 
ma (23 RND t < >2 OR a tt) «a (3) RN 
t < >3 OR a ( t 3 aa (4-3 RND t<>4- THE 
(30 TO 90 


t 3 
D 
N 

100 NEXT t 
110 CLS 
12® LET s s0; 
ndovina “;g; 

130 LET b(13 
3 aUftL 9* (23 
135 LET b(33 
) «URL 9* (4-3 
14-0 PRINT 


LET 

=URL 


r s0 : 
g*t!) 


INPUT (“I 
: LET b(2 


aURL 9$(33: LET b(4 


b (23, 
4.3 ; 


INK b ( 13 


INK b (33 


INK 

INK b ( 
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FOR t -1 TO 4 
RND t < >l THEN 


t 

THEN 


LET 


r =r +1 
bi a 


150 LET 9-9+1 
160 FOR t=l TO 4: 

170 IF a Ct) -b ( U 
LET S ss +1 
180 NEXT l: NEXT 
190 FOR t=± TO 4- 
200 XF b ( t > asa ( t ) 

210 NEXT t 

220 PRINT " BNERO-"; 
neo- "js 
230 IF r =4- THEN GO TO 260 
240 IF 9=20 THEN GQ TO 270 
250 GO TO 120 

260 CLS : PRINT RT 11,0, FLRSH 
1; INK 4;'■ O.K. .Hai indovinato 
i colori’ 1 ; GO TO 260 
270 CLS : PRINT RT 11,0; INK 4; 
“ERRATO•Hai superatoSB tentativi 


280 PRINT RT 13,0; FLRSH 
a < 1) ; •*; INK a f2) 

C3) ; "■ INK a (4) ; 

290 FOR 9=1 TO 20: 

20 : NEXT 9 


'•I 


l; INK 
INK a 


EEP .2,RND* 



101 






DAMA 

Di Tim Hartnell 


Ecco il classico gioco della dama, al quale potete sfidare il Vostro 
Spectrum sulla scacchiera che lui stesso disegnerà sul video. 

È sicuramente inutile spiegare le regole di questo gioco, l’unica differenza 
sarà che il computer vi ripeterà un esempio (sempre lo stesso) per poter 
muovere le pedine, per intenderci «da... a...» come per la battaglia navale. 
Dopo ogni «mangiata di pedina», Vi verrà chiesto se potete muovere ancora, 
se si’, premete un tasto, quindi ENTER e proseguite con la nuova mossa, al¬ 
trimenti battete ENTER e sarà il computer a fare la sua mossa. 


Il gioco può finire in tre maniere: 

1) lo Spectrum dichiara la resa anche se esistono altre possibili mos¬ 
se, se giudica che la situazione sia senza speranza; 

2) dichiara la propria vittoria catturando tutti i Vostri pezzi; 

3) Vi dà partita vinta se Voi avete catturato tutti i suoi pezzi. 


Troverete che il computer gioca lentamente all’inizio della partita e prende 
velocità man mano che questa si protrae. 


10 REM ******************* 

20 REM *DRMR* 

30 REM *di Ti» Hartnell* 

4-0 REM ******************* 

50 GO SUB 94-0 
©0 LET 2 =24- 
70 LET 0=0 

80 REM **costru 2 ione pedine** 
9& FOR G=69 TO 72: IF R iG)= -l 
THEN LET fl (Gì = -2 
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100 NEXT G 
110 GG SUB 740 

120 REM ^Medi di presse per lo 
spectru»* 

130 IF A (ZJ =99 OR A(ZJ<1 THEN G 
0 TO 220 

140 IF Z <23 AND A(ZJ *1 THEN LET 

A (ZJ =2 

150 LET Y=1 

160 IF A(Z+X(YJJ<0 AND A(Z+2*(X 
(YJJJ=0 THEN LET Q=X(Y) 

170 IF A (ZJ=2 AND A(Z-X(YJ) <0 A 
ND fl(Z-2jfX(Y))a0 THEN LET Q=—X (Y 


AND Z+2*Q>23 THEN G 


TO 220 
160 


180 IF Q<>0 
O TO 250 
190 LET 0=0 
200 IF Y=2 THEN GO 
210 LET Y=2: GO TO 
220 LET Z=Z + 1 

230 IF Z<73 THEN GO TO 130 
240 IF 0=0 THEN GO TO 340 
250 LET A (Z+QJ =0: LET A(Z+2+OJ= 
A (Zi : LET A (Zi =0 
260 LET Z=Z+2*0; LET COM=COM+l: 
GO SUB 720 
270 LET 0=0: LET Y=1 
280 IF A(Z+X(Y) J <0 AND A(Z+2*(X 
(YJ J ) «0 THEN LET 0=X(Y) 

290 IF A(ZJ =2 AND A (Z-X(YJ) <0 A 
ND A(Z-2*X(YJ J =0 THEN LET 9 = -X(Y 
J 

300 IF O<>0 AND Z+2*0>23 THEN G 
O TO 250 

310 IF Y=1 THEN LET Y=2: GO TO 
280 

320 GO TO 480 
330 REH «Modi di non presa 
lo spectrujfk* 

U=0 


per 


Z=24+INT (RND+49J• LET 
A(ZJ =1 OR A(ZJ =2 THEN GO 


=0 AND (A(Z+2#X 


340 LET 
350 LET 
U=U + 1 
360 IF 
TO 380 

370 GO TO 350 
380 LET Y=1 
390 IF A(Z+X(YJ J 
(YJJ>-1 AND A (Z+2*X(YJ +1J >-1 AND 
A(Z+2*X(YJ —1J >—1J THEN LET ©=X( 

*395 IF A(Z+X(YJ J =0 AND U>250 TH 
EN LET 0=X(YJ 

400 IF A(ZJ =2 AND A(Z-X(YJ ) =0 A 
ND (A(Z-2*X(YJJ>-l AND A(Z-2*X(Y 
J+1)>-1 AND A(Z-2*X(YJ -1J >-l OR 
U>600J THEN LET Q = -X(YJ 
410 IF O<>0 THEN GO TO 450 
420 IF Y=1 THEN LET Y=2: GO TO 
390 

430 IF U<1000 THEN GO TO 350 
440 PRINT INK 2; FLASH l;"Conce 
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450 LET R (Z+OJ =fl (ZJ : LET R(Zi >0 
470 GO SUB 740 

480 PRINT-trb 6; INK Scinse 

risei la tua mossa" 

490 PRINT TRB 5; INK 3;"come R3 
poi ENTER," 

50® PRINT TRB 4; INK 2;"poi B8 
POI ENTER." 

510 BEEP .2/RND *10 

520 INPUT FLRSH l,"Da? ";R$: BE 
EP ,2,RND*10: INPUT FLRSH 1, "R7 
";B$: FOR Usi TO 2; LET 2*0 
525 PRINT RT 15,0;" 


530 IF U=1 THEN LET C*=R* 

540 IF U=2 THEN LET C$=BÌ 
550 LET Z*-24* tC*="G9”> -25» (C*« 
"E9"J-26*(C**"C9"J-27*(C*=“R9“)- 
30* (C*»"HB"> -31* (C*="F8”J -32*(C* 
="D8"J-33*(C**"BB"J-37*(C$="G7"J 
-38*(C$*"E7"J -39* (C$»"C7"J-40* (C 
$="R7"J -43* rC* = "H6") —44* CC<f = "F6“ 
J -45*(C$="D6 "> -46*(C*="BS"J -50* ( 
Ct"* n G4 

550 IF Z<>0 THEN GO TO 580 
570 LET Z=-51*(C$="E4"J-52*(C*= 
”C4"J -53*(C**"R4 "i -56* (C*="H3"J - 
57* (C*="F3"J-58*(C**"D3"J -59*(C$ 
="B3“J-63*(C$="G2")-64*IC$="E2 "T 
-65* (C*="C2”J -66* (C$="R2") -69* CC 
$*"H1"J-70*(C*="F1"J-71*(C$="D1" 
) -72*(C*=”B1"J 
580 IF U=1 THEN LET D = -Z 
590 IF U=2 THEN LET E*-2 
600 NEXT U 
620 LET R (E) *R(DJ 
630 LET R(DJ*0 

650 IF RBS (D-EJ >7 THEN LET R (D 
+{INT (E-D) S3ii =0: LET HUH=HUH+1 
670 GO SUB 740 

680 IF RBS (D-EJ >7 THEN INPUT ; 
FLRSH 1;"Puoi Muovere ancora? ( 
Premi un tasto,poi ENTER per il 
SI) U*: IF U*<>"" THEN GO TO 5 
20 

690 IF HUH <12 RND COH<12 THEN B 
O TO 60 

700 IF HUH*12 THEN PRINT FLRSH 
1; BRIGHT 1; INK 2; PRPER 6;“Hai 
Vinto.» " : STOP 

710 IF COH=12 THEN PRINT FLRSH 
1; BRIGHT 1; INK 2; PRPER 6;"Ti 
ho battuto*": STOP 
740 FOR H=24 TO 72 
750 LET R(M)=145*(R(M)*1)+147*( 
R(HJ =2J +32*(R(HJ =0J +144*(R(MJ =-l 
1 +146*(R(HJ =-2J+99*(R(HJ =99J 

760 NEXT M _ _ 

770 PRINT RT 1,0; INK RND*7, PR 
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mio punteggio 
" ; HUM 


COM; 


K=0 TO 3: FOR 
INK i;CHR$ 


2; INT ( ( 


INK C; PRPER Si INT ( ( 


PER 9;"Il 

"✓il tuo : ' 

780 PRINT RT 3,0; 

790 LET T=-2: FOR 
J=0 TO 3 

800 PRINT INK Si "I 
IR(72-J-I3*K) ì i 
810 NEXT J: LET T=T + 1 
820 PRINT INK 6; PRPER 
U+K) /Si +T 
830 FOR J=0 TO 3 

84.0 PRINT INK 1 ; CHR$ (R (66—iJ-13 
*K) ) ; INK 2; "■h; 

850 NEXT J: LET TsT+1 
860 PRINT 
■J+K) /2> +T 
870 NEXT K 

880 PRINT INK 6; PRPER Si“RBCDE 
FGH " 

890 FOR M=24 TO 72 

900 LET fi(M)=(fi(M)«145)+2*(R<M) 
= 147) +0» (fi (M) «32) - (fi (M) «14-4.) -2* t 
fi (Mi «14-6) f-SSf (fi (M) «99) 

910 NEXT H 
920 RETURN 

930 REM *********************** 
94-0 REM umiliazione variabili» 
945 REM *********************** 
950 DIM R (99) : DIM X (2) : LET Xf 
1)«—6: LET X(2)=-7 
960 FOR Z =1 TO 99: LET fi(Z)=99 
970 IF Zi73 RND Z>55 fiND NOT (Z 
«87 OR Z =68 OR Z=60 OR Z=61 OR Z 
=62) THEN LET R(Z)=1 
980 IF Z < 54 RND Z>42 RND NOT (Z 
=47 OR Z=48 OR Z=49 THEN LET fi( 
Zi =0 

99® IF Z <41 RND Z >23 RND NOT (Z 
=34 OR Z =35 OR 2=36 OR 2=28 OR Z 
=29) THEN LET fi(Z)=-l 
1000 NEXT Z 
1010 LET COM=0 
1020 LET HUM=0 
1030 FOR J=0 TO 7 
1040 RERD fi: RERD B 
C: RERD D 


USR 

USR 

USR 

USR 

J 


*R"+J,fl 
*B"*J,B 
'C"*J,C 
■D"*U,D 


1050 RERD 
I960 POKE 
1070 POKE 
1080 POKE 
1090 POKE 
1100 NEXT 
1110 RETURN 
1120 DRTR 0 
1130 DRTR 
24,84 

1140 DRTR 126,42,124,108,60,20,1 
24,84 

1150 DRTR 24,8,254,178,0,0,0,0 


^,0,0,0,24,8,84,84 
80,20,124,124,126,42,1 
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il mio punteggio e'0/il tuo: 0 



Inserisci la tua mossa 
come R9 poi ENTER, 
poi 68 poi ENTER. 


RINUMERAZIONE 


L’ultimo programma è una routine molto utile che rinumererà i numeri di 
linea, ma non i numeri seguenti a GO TO e GO SUB. 

Battete il programma partendo dalla linea 9990. 

Per poter rinumerare, esso Vi chiederà il nuovo numero di linea e di quan¬ 
to dovrà intercalare tra una linea e l’altra. 


9990 REM Rinumerazione 

9991 LET X=PEEK 23635+256*PEEK 2 
3636 

9992 INPUT “numero di partenza " 

4993 INPUT "intercalare ";d 
9994. Il- PEEK (X + 1) +256+PEEK <X>* 

9990 THEN STOP 

9995 POKE X,INT (S/256J 

9996 POKE X +1 / S.-256 + INT ts /2S6) 

9997 LET s =S+d 

9996 LET x=4+X+PEEK (X+2J+2S6+PE 
EK (X +3) 

9999 60 TO 9994 
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Q-REG (CORRELAZIONI E REGRESSIONI) 


Q-Reg è un programma di correlazioni/regressioni; esso accetta prima di 
tutto la Vostra variabile X, per terminare usate 999, quindi i valori di y. Il pro¬ 
gramma calcola in seguito i vari sub-totali (somme di x,y ecc), il coefficiente 
di correlazione di PEARSON, e l’equazione di regressione (lineare). 

A questo punto premete un tasto per continuare, poi sarete in grado di in¬ 
terpolare/extrapolare quest’equazione dalla linea inserendo i valori di x; per 
terminare, inserire sempre 999. 

In ciascuno stadio del programma Vi sarà data la possibilità di scrivere i 
risultati su stampante rispondendo positivamente alla domanda «La stam¬ 
pante è collegata?». 

Potete far girare ancora il programma premendo semplicemente ENTER, 
o fermarlo battendo n prima di ENTER. 


PRINT RT 20, 
•Correlazioni / ftegre 

coll 


1 INK a. : CL3 
5 POKE 23392,-1: 

0 ; 

10 PRINT 
SSioni" 

20 INPUT "La stampante e 
egata? ";p4t 

30 GO TQ 70 

31 IF Pt="n" THEN RETURN 

33 INPUT FLRSH 1;"Stampa quest 
a pagina?";a* 

4.0 IF a« <>•'£" THEN RETURN 
50 COPY 
50 RETURN 

70 DIM X(20): DIM y(20) 

80 PRINT " INK RND*5;"Inserìs 
ci valori di x in ordine La fine 
con 999" 

90 FOR i=1 TO 20 
100 input INK 1;("Valore “;i;" 

1Ì0 IF X(i)«999 THEN GO TO 1B0 
130 NEXT i 

14.0 PRINT ' ' INK 2; FLRSH 1; “20 
E' IL MRSSIMO RMMESSO" 

150 LET i =i -1 

160 PRINT 'RT 21,12;i;" ualori 
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170 PRINT '' INK RND*5;”lnseris 
ci valori di Y in ordine " 

180 FOR j»l TO i 
ìeo input INK i; rualore 
"> ;g(i) 

200 NEXT J 

210 60 SUB 31 

220 LET C»B; LET d =0 

225 LET e =0. LET f =0: LET 2=0 

230 FOR J=1 TO i 

240 LET 

24.5 LET d«*d+y ( J) 

250 LET e=e+xt j> »X f j> 

260 LET 

270 LET 9 > 9 f.X ( J) »y ( J) 

260 NEXT J 

290 LET r = ( i *g - c *d )rSOR C(i«e-c 


290 LET r=fi*g-c*d)/SOR tli*e-c 
t2)*(i*f-dt2>) 

300 CLS 

310 PRINT "Som»a X ";c' INK 2;” 
Sonna Y “;d;' INK 3;"So»»a di xt 
2 " ; e ' INK 4.; "So»»a di Yt2 
INK 5;"So»»a di XY ";e 
320 PRINT '"eoe 1fi cente di corr 
e lazione" 

330 PRINT TRB 6;r 

34.0 PRINT ' "eoe f fi ci ente di det 
ermi nazione" 

350 PRINT TRB 6;r*r 

360 LET b= fi *9 ~C*d.l </fi #e-C*2i 

365 LET a=C./i-d/i *b 

370 PRINT '"L'equazione lineare 

regressi va :" 

380 PRINT INK rnd* 5; "Y*“; a; C“+‘* 
RND S6N b> -1) ; f-** RND SGN b<0> 

;RBS b; " X" 

390 IF INKEYfs"" THEN 60 TO 390 
4.00 GO SUB 31 
410 CLS 

420 PRINT "Interpotazioni/Estra 
ppolazioni 999 per finire" 

430 PRINT "X Y" 


PRINT INK RND*5;"Y*“; a; C"+" 
SGN b>-1); t"-" RND SGN b<0> 


440 INPUT X 

450 IF X =999 THEN GO TO 490 

460 LET U*a +b*x 

470 PRINT X ;TRB 10;y 

480 GO TO 440 

490 GO SUB 31 

500 INPUT INK 2; FLRSH 1;"UN'RL 
TRO GIROT";a$ 

510 if a$ rii < >"n" then run 
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Quello che segue è un utile programma di statistica, che trova l’area sotto 
una curva di normale distribuzione, al punto in cui voi introducete la variabile 
x alla linea 20. 


Questo programma ha una precisione 


ui v-> 11 L>a 




6 rem «normale distrihurione 

7 POKE 23692,-1 

10 PRINT INK li "Noriale distfi 
buzione *• 

29 INPUT INK li FLRSH 1 ;'*X=";x 

30 L ET tmXs ( 1+0.23164-2 *X) 

*0 LET «l*l./'SQR (2tPI3 *EXP 1-xt 
2 / 2 ) 

50 LET a=0.319332. LET b=-0.35 
6564» 

60 LET C *1.7614-80: LET d=-1.82 

^ QCC 

70 LET e =1.330274- 
30 PRINT INK RND*5;"PX=*:1-q*t 
a*l*b*lt2 + C*tt3+d*t*-4.+e*tf‘5> 

S© 60 TO 1© 
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Con questo libro e il vostro ZX SPECTRUM, sarete pronti ad 
intraprendere 60 meravigliose e divertenti avventure: da “L’oro 
del drago" classica avventura di un tempo, a “Tra le stelle” 
esplorazione del futuro, dal "Barone rosso” ad “Asteroidi", da 
“Fastermind”, a “Formula uno”, da “ZOMBIES” a “Jackpot” una 
moderna versione della famosa slot machines di Las Vegas. 
Questo libro però non contiene solamente dei giochi ma anche 
dei programmi che vi aiuteranno nei problemi di tutti i giorni: 
tracciare un grafico, risolvere una equazione, effettuare le classi¬ 
ficazioni alfabetiche e numeriche, gestire il vostro conto corren¬ 
te. 

Tutti i programmi di questo libro sono facilmente accessibili a 
chiunque abbia una discreta conoscenza del linguaggio BASIC, 
inoltre, data l’eccezionale versatilità del vostro favoloso ZX 
SPECTRUM, potrete apportare delle modifiche ai programmi 
secondo le vostre capacità. 
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